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Gordon Lee's personal solution to the 
Junecompetition — winners are an- 
nounced as. usual, and many thanks, to 
BROOMSOFT who came galloping out of 
the sunset with the mystery prizes. 



Editorial 



WELL, 1 was wrong about Wales. It rain- 
ed in the morning and in the afternoon . 
And all night as well. And every day lit- 
tle troops of walkers and cyclists drip- 
ped into our village in search of a pint of 
anything but water. Such is the in- 
domitable spirit that Wales inspires. 

It's early in the month here and the 
Special Offer books are selling fast, but 
because I am an optimist (or is it 
pessimist?) I am running the coupons 
again so that anyone who wants extra 
copies, to pass on the page to a friend, 
or didn't want to hack up fast month's 
classified page gets another chance. If 
all goes well we may be able to arrange 
something else along the same lines. 

I see Paul Grade has been laying into 
users who tape copies of NDUG soft- 
ware. Quite right too. Duplicating other 
people's produce to save a couple of 
quid here and there is bad news. Ripp- 
ing off anyone's software is bad news 
these days. You might say well, I 
wou Id n't buy it any way \ but it sets a bad 
example, and Dragon suppliers, who 
are playing to a small market, need your 
support. 

Think twice, take my advice. You 
could be cutting your own network 
from under you. 



Telephone number 

(All departments) 

437-4343 
Editor 

HELEN ARMSTRONG 

Production Editors 

DAVID PRIVETT/LINDA SLOMAN 

Editorial Secretary 

CAROL FRITH 

Advertisement Manager 

ATHENA PEER MAN 

Administration 
ANNE MARIE ALLEN 

Marketing Manager 

HELEN PERRY 



Managing Editor 
PETER WORLOCK 

Publishing Director 

JENNY IRELAND 

Subscriptions 

UK E14 for 12 issues 

Overseas (surface) £20 lor 12 issues 

ISSN 0265-177. Telex: 296275 

Dragon User, 12/13 Little Newport Street, 

London WC2H 7PP 

US address: c/o Business Press International, 
205 East 42nd St. New York : NY 10017 
Published by Scot Press Ltd. 
© Scot Press 1987 

Typesetling and Production by Ariext Limited. 
London NW1. 

Printed by Head ley Brothers Ltd. A&hford, Kent 
Registered at the Post Office as a newspaper. 
Dragon and i is logo are trademarks of 
Eurohard Ltd 



How to submit articles 

The quality of the material we can publish in 
Dragon User each month will, to a very great ex- 
tent depe n d o n the q ua I ity of t h e discove ri es that 
you can make with your Dragon. The Dragon 
computer was launched on to the market with a 
powerfuf version of Basic, but with very poor 
documentation. 

Articles which are submitted to Dragon User 
for publication should not be more than 3000 
words long. All submissions should be typed. 
Please leave wide margins and a double space 
between each line. Programs should, whenever 
possible, be computer printed on plain white 
paper and be accompanied by a tape of the 
program. 

We cannot guarantee to return every submit- 
ted article or program, so please keep a copy If 
you want to have your program returned you must 
include a stamped addressed envelope. 



Letters 



Adventure 
extra 



I would like to 
Gerrard good luck in his 
takeover of the Adventure col- 
umn and hope that I can 
become as good a friend to him 

as I was to his brother Mike. 
May his light never go out. 

A little tip for those stuck in 
Tangtewood: drink in western 
well to use the springboard. 
Simon 'The Solver' Margrave 
Crawtey Hili Farm 

Utey 
Dursley 
Gto$.GL115BH 

At the last count Mike s light 
was still glowing gently over 
his ex-column, because the 
signwriterhasrVtbeen round 

to fix It. But we're having it 
sent along to The Guardian as 
soon as possible. 



Machine 




Every month we will be shelling out a game or two 
courtesy of Microdeal, to the reader/s — - 
who send the most interesting or - 
entertaining letters. So send 
us your hints and your opinions, 
send us your hi-scores and 
suggestions. Send us your 
best Dragon stories. What 
d'you think we are, 
mind readers?! 



EXTRA 
PUFF 




EVERY month I enjoy reading 
your brilliant magazine* but I 
think that something is still to 
come. 

Theoneihing I'mlookingfor 
every month is machine code 
for the more advanced user. I 
think and know that all we 
Dragon users have had the 
computer for a while and know 
something about machine 
code, and I don't think we are 
interested in Basic tor the 
beginner. 

When I say machine code, I 
mean machine code that in- 
cludes machine code in con- 
junction with the disc too (FX. 
Howtoloadand savefromMC), 
I must say that even the Basic 
programs printed over the 
years are o t a very high quality. 

I would also like to read more 
about hardware projects. For 
example,. I'm right now 
building a battery- back up- 
real-time-clock and a RS232 
interface into my Dragon 32. 1 
havebuilta PIA which I use very 
much when I communicate 
with other computers. I would 
like to tell you more about the 
projects if you would like it. 

Jakob Hoffman 



Music for the Millions 

SOMEtimeaoolwrotealetterofthankstoalltheDragonuserswho 

responded to a request for help with Puff, our tame Dragon at 
Westgarth a short-stay home forchildren with a mental handicap. 
The response was overwhelming, and several people have kept in 

touch with usand provide conhnui ng help and advice. I acqu'red a 
Dragon 64 for my own use in creating programs for the children, 
alonq with Microdeal's Composer utility which, as an ex- 
professional musician, I found invaluable for producing proper 
music on the Dragon. It does, however require some musical 
knowledge to produce the best results, particularly when moving 
graphics note by note. Unless the note are all the same length, a 
veryjerkyeffectcanresult.aswellasmakingthetunesoundrather 

oddwiththepausesasthegraphicsaremoved! 
BvwayofathankyoutoDragonusersJamdevelopingahbrary 

of Composertunes, both Basic DATA statements and M/C files so 
that programs with little musical knowledge can have access to a 
ready mode source of variety of music, from short jing es and 
record tunes compatible with moving graphics, to full-length 
classical pieces just for listening to, nursery rhymes, Christmas 
carols and TV themes . etc The Basic DATA lines are commented 
with REMs to enable lists of tunes to be chopped out or repeated , 
and I have a short utility to automatically insert return to Basic 
between each note of a M/C file and test the results. 

The library is not complete as yet. I am aiming for 1 00 tunes as a 
starting point with just over 60 completed to dale. Unfortunately I 
willnolhavethetimetoactuallyrunthelibrarywhencomple^d.so 

ifsomeoneoutthereiswillingtotakeiton^henpleasegetintouch, 

I must stress though that it is intended as afree service to Dragon 
users and not a commercial proposition (hariMes excepted!). 
Sorry, forgot to mention, not having a disc-drive, the library is 
cassettebasedwithfourtunesoneach(Cl2)tape : 

Anyone interested in taking the library, or helping to set it up. 
Please give me a call or drop me a line at home or work 

" Stuart Beardwood 

1 West Bottom 

Hob Lane 

Norland 

Sowerby Bridge 

W.Yorkshire HX63QL 



8800 Viborg 
Denmark 



PSI haven'tadisc-drive, I don't need a printer, I can only program 
in Basic and I don't play adventure games. The newDragofi users 
mentioned in July s editorial could well be put off by thinking that 
DU's only catering for advanced users and leaving behind tne 
beginners like me!! 

EVERY single issue we have at least one person saying there 

was nothing interesting it and why don't we run the same 
thingsweranintheissuebeforethat-andonepersonsaymg 

it was the most interesting issue he's seen for ages. Please 
everyone? Of course we do - we just can't do it every month, 
that' s all. I think Stuart s library idea is going to please quite a 
few people, though. Thanks from Dragoners for your efforts, 
and the efforts of the people who are supporting the school. 



We are not certain quite 
when, but another series on 
machine code is planned in 

the future. 

We would actually like to 
run more hardware projects, 
but we can only in fairness 
consider small projects, as 
the potential for getting into 
trouble on an ambitious 
modification is almost limit- 
less; this kind of thing is best 
left to specialist hardware 
magazines. Anybody who 
wants to send us a hardware 
project for consideration: 
please send a detailed 
description of what the 
device does, a COMPLETE 
set of drawings, including 
any PCB layout involved, and 
a complete list of parts used, 
along with the names and ad- 
dresses of current suppliers, 
andcDSt. 
Then we can think about 

publishing! 



Club 

information 

THANK you very much for 
publishing the fact that I am in- 
volved in forming a new user 
group. However the exact 
details you published were not 
correct. I feel that this was my 
fault as my initial letter was 
so me what I ess than eloquent, I 

would then be thankful if you 
would publish the now details. 

1) My postcode is fact NP45LN 
(thepostman was not pleased). 

2) The group is not only a local 
one but a postal group with 
newsletter, etc. (I will however 
be more than glad to arrange 
meetings in my area), 

3) Th e f i rst n e w s I etter i s a I m o st 
ready (I will send you a copy). 

4) Copies for prospective 
members can be obtained via 
me for a meagre 50p. 

5) Subscription is £4/6mthsor 

| £7.50/year, 

6) Members will have to be in- 
volved in the group. 

I am very grateful for your 



help. 

R.Batt, 75SunnybankRd 
Pontypool, GweniNP4 5LN 

HAH! Don't mention post 
people around here just at 
the moment. The west end 
posties are on strike again 
and if there's anything 
essential missing from DU 
this month, that's why. 
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This is the chance to air your views — send your tips, compliments and complaints to Letters 

Page, Dragon User, 12-13 Little Newport Street, London WC2H 7PP, 



Machine 
code wanted 
for beginners 

I have owned a Dragon 32 for 
one and a bit years now and 
have been an avid reader of 
your magazine for the same 
period (since Feb 1986). 

I have read one or two letters 
from other readers asking for 
the articles to the less basic 
(excuse pun) and in one case 
the plea was "less moronic". 

May I plead the opposite 
case. Although I am of mature 
years, I have a computing age 
of probably five. I am slow by 
starting to understand Basic 
and can even modify one or 
two p r i n ted prog ram s to the ex- 
tent that they still work. BUT 
Machine code gives me a 
headache. 

Would it be possible for so- 
meone to write an explanation 
in juvenile terms (computer- 
wise) so that I, and others like 
me, can at least enter 
Mnemonics via an assembler 
and gel something out. 

I have a complete set of IN- 
PUT' magazines, latest edi- 
tion and have taped their 
Dragon assembler, I also have 
CO-RES from Microdeal, All I 
ever get is error messages. 
Even these flash across the 
sere e n t oo f ast f or co m p re h en - 
sion. My hair was grey when I 
started but I shall start pulling it 
out quite soon. 

If your staff authors consider 
it beneath them maybe one the 
readers who are regular cor- 
respondents could take up the 
challenge. I have two books by 
John Vander Riyden beside 
me now. and they don't help 
either. PLEASE, what am I do- 
ing wrong? 

R.F. Harding 
27 Down Amprey 
Cirencester 
Gtos. GL75QS 



Staff author? STAFF 
AUTHOR?? In this business, 
we think a staff author is so- 
meone who writes for 
Wizard's Weekly... I wish we 
had one or two. At least then 
I would know where they 
were when I wanted them. 

Seriously, is anyone 
reading this interested in 
taking up the challenge? If 
so, drop the editor a line. 



Hi Score Corner 



ACCORDING to our postbag, 
Chuckie Egg is one of the 
most popular games of alt 
time. Why else do ouf 
readers spend hundreds of 
hours playing it? Paul 
lasikiewicz s challenge in 
DU June called forth the 
cream of the crop. 

WHILE reading your Hi-Score 
Corner, I came across Paul 
lasikiewiczs's high score for 
Chuckte Egg t which was 
222,570 on level 22, My sister 
got onto level 22 as well but got 
a higher score of 236,580. She 
pleads for this letter to be 
printed. Please let me know if 
anyone should beat this as my 
sister wishes to strangle them. 

Michael McCullough 
129Cregogh Road 



A/. Ireland 
BT60LA 

THIS woman will go far. Not 
only has she talent, but she 
has a manager as well. Ever 
the persons to oblige, 
Dragon User fines up the 
victims. 

REPLYING to Paul lastkiewicz 
in June s issue, the highest 
score I have ever got is 
239,030 on level 21, 

Simon Elencowe 
3 Sandringham Road 
Kings Sutton 
Banbury 



OX173QS 

SHORT and to the point 
Dene B ebbing ton goes for 
philosophy as welt. 



response to Johnathan 
Baker's letter in the January 
issue, his high score on 
Chuckie Egg is not the highest 
I have scored over 240,000 
before level 20. 

Unfortunately, the problem 
with high scores is that there's 
usually someone else who has 
managed to better your score. 
I imagine that scores between 
300,000 and 400,000 on 
Chuckie Egg would be quite 
hard to achieve, or is there 
somebody who can prove me 
wrong? 

Dene Bebbington 
60 Quarry Cfough 
Stalybridge 
-.hire SK15 2RW 



THE problem with high 
scores? I thought that was 
the whole point of high 
scores , . . 



REFERRING to the June issue 
Hi- Score Corner, I scored 
250,61 0 on Chuckie Egg (fevel 
24) and that was nearly three 
years ago! I would like to ask 
some questions that have 
been bothering me. 

1) There aren't any proper 
instructions in Wizard's Quest. 
What do I do? 

2) Whatever happened to a 
proposed game by Roy Coates 
called Talisman? 

3) Are there any good pro- 
grams for light pens? 

4) I can't get anywhere in 
Return of the Ring (can : t find 
breather mask, etc.) Help! 

Graham Bruce 
1 1 Garrick Road 
Hartlepool 
Cleveland 
TS254EJ 



) Write to MierodeaL or Pete 
Gerrard. or both. 2) Because 
Roy's programmer suddenly 
realised he was starving and 
went and got a proper job 3) 
See last month's news page 
4) someone help this chap. 
By the way, we are trying to 
sort out your missing tape 
query, Mr. Bruce. If at first 
you don't succeeed . keep on 
swinging, as the spider said. 
But on to the next victim; 

I WAS reading June's Hi- 
Score Corner and I found a 
scoreon Chuckie Egg that was 
222,570 on level 22, My 
highest score was 251 ,660 on 
level 23. 

Robert Hough 
364 Vicarage Lane 




Blackpool 
Lanes 

4Y4 4ND 

WHILE reading June's issue, I 
came across a letter from Paul 
lasikiewicz who said his hi- 
score for Chuckie Egg was 
222,570 My hi-score for 
Chuckie Egg is 326,650, level 
27! 

Some other hi-scores: 
Module Man 156,650 
Hungry Horace 6,794,320 
Mr. Dig 2,429,290 

If anyone needs help on 
Trekboer, Juxtaposition or 



Shenanigans, please write to 
me, I also would be very glad if 
anyone could help me with The 
Vortex Factor (from year 
3032(2) BC). 

John Korsvold 
The Dragon Devil 
2824 Redafen 
Norway 

SEE, Dene? And further ... 

PLEASE find enclosed my 
cheque for £14, and my pay- 
ment slip. Keep up the good 



Carl Truett 
1 1 Hayden Road 
Rushden 
NorthantsNNWOHX 

PS My high score for Chuckie 
Egg is 41 3,940 at level 32. The 
normal ducks go much faster 
and there are Two mad ducks. If 
anyone can do level 32, then 
they eally know where their 
towel is. My other good high 
scores are 31 6,600 on Donkey 
King, 625,480 on Mr. Dig, 
456,800 on Module Man and 
1 >335,078 on Hungry Horace, 
(None of them POKE aided.} 

NOW that s the kind of letter 

we really like. Where can we 
go from there? Time for 
another poem, obviously, 

I thought I would write and tell 
you the game we have, Moon 
Cresta, is very good The 
highest score is 25.000, I'm 
afraid I can only reach 23,000, 
so out of frustration I wrote a 
poem about it, 

MOON CRESTA what a game 
Score 25,000 and you reach 
fame. 

It's good fun yet frustrating. 
I guess its all the waiting. 
What makes the game so 

rewarding 
Is, without any warning 
FAR OUT, FAR OUT 
What satisfaction. 

It causes an adrenaline 

reaction. 
Moon C res la is my game 
Because in the end I 
Type in my name. 
Moon Cresta! 

Mrs. V". Benton 
720 Benttey Court 
Moor Street 



. LU1 1EZ 



FAME at last, and she didn't 
even have play Chuckie Egg 
to do it. 
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News desk 



Trojan 
Heroes 

DRAGON USER wishes to apologise to 
Trojan Micro Computer Software and 
Accessories for describing the original 
Trojan Light Pen software as disappoint- 
ing' in the August issue. 

This was entirely due to a misunder- 
standing about Trojans reasons for 
permitting the software to be updated. 
Says Trojans Tom Jones, who was 
ext rem eiy good nat u red a bou tourclanger, 
"The Trojan light pen software has sold 
over 20,000 copies overall, and was very 
well reviewed in Dragon User. We're still 
very happy with it. We have given informal 
permission for alterations to be made to it, 
within our copyright, as long as it is 
checked fay us. 11 

Trojan can be contacted on 0792 205491 
if anyone has any questions. 



Good show 

HERE are a couple of corrections to recent 
news items: 

The North of England Dragon Show and 
Convention will be taking place as and 
where we said it would, with the exception 
that the venue is the Bishop Henshaw 
Upper School, Rochdale, and not the 
Bishop Han slow Upper School as we 
claimed. 

Sorry, Vicar! 

"Do tell people to come along" says 
Pulser's Brain O'Connor, "Some dealers 
will give up shows if they can't get a 
reasonable attendance and cover their 
costs. This will be a bit different from the 
average Dragon show" 

It's your show. Go, go, go. We are. 

Also apologies to Hans Christian 
Andersen Software. Of course their pro- 
gram Superwnter ff can't be 'loaded into 
memory and then saved and loaded onto 
another disc' as we claimed in the July 
Newsdesk. What we meant was that the 
data files can be saved to another disc. 

Sorry, Hans! 



NDUG 

HERE I am, clutching a June issue of 
Dragon Update bearing the inscription 
news for September', and it's nearly the 
end of July, It's an arrangement Known as 
the 'double time scheme" to drama critics, 



If you have any new products for the Dragon — software or hardware 

ring the News Desk on 01-437 4343 



Can't stand printers? 



VIGLEN has announced a new range of 
printer stands for use with most 80 or 136 
column printers. 

At the bottom of the range is a metal 
stand finished in black, designed for use 
with the Centronics GLP II printer. There is 
a larger version of this stand with a paper 

roll holder. 

Two models of smoky or clear look 
perspex stand are available, with room for 



continuous stationery underneath. 

Viglen also supplies a high-impact 
plastic printer stand, colour co-ordinated 
to the usual printer colour, with room for 
1,000 sheets of continuous stationery. 

Prices range from a very affordable 
£9.95 up to £29.95 See your computer 
dealers, or contact Viglen on 01 643 9903 
for a list of dealers, 




and 'darned confusing' to Dragon User. 

Anyway, here are the contents of June's 
Dragon Update: test run of the US J & R 
Electronics Bankers' Board design from 
The Rainbow, utility reviews, easy machine 
code, OS-9 for beginners, Telewriter and 
SuperDOS, a joystick/cursor key mod, 
some bits on DeltaDOS, a couple of 
graphics routines, some screen dump 
samples (and a drawing competition), the 
usual small ads and a suggestion that DU 
and Update should rule the world, seeing 
as how some people seem to think we do. 

Well why not, Paul? As long as I get to 
wear a crown. 

Update also warns that business adver- 
tisers will have to contribute to costs in 
future, or risk having their ads 'bumped'. 

DU thinks this is fair enough. Although 
Update is not strictly a commercial 
organisation, they are still in business in- 
somuchas they have to pay out money for 
printing etc, just as we do, and need con- 
tributions from people using their services. 

The National Dragon Users Group can 
be contacted at 6, Navanno Road. Wor- 
thing, Sussex. Phone: 0903 207585. 



Correction 



B. Yeoman Walker has written to say; Ihe 
printers have truncated more than the title 
in my article. Several lines are missing 
from the bottom of Figure 1 on page 19 of 
the July issue, which will no doubt cause 
some reade rs to won de r wh at has h appe n - 
ed. (Not just readers — Ed.) Here are the 
missing notes: 

1. There is no Elite facility, 

2. There are no ESC P codes 

3. The ENGLARGED mode is only 
available by SO (= Shift Out) £HR$(14). 

4. The CONDENSED mode is only 
available by SI (= Shift In). CHR$(15). 

5. There is no Italic facility (ie No ESC 4 or 
ESC 5, or alternative). 
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New software for review should be sent to Dragon User 
12-13 Little Newport Street, London WC2H 7PP„ 



Dragon guide book 



Program: Magbase 
Supplier: Pulser Software, 36 
FoxhilL High Crompton, Shaw, 
Oldham, Lanes OL2 7NQ 
Price: various according to 
versions 

T H E R E h ave been surprisingly 
few database p rog ra m s w r itte n 
for the Dragon since the late ar- 
rival of the disc system, and 
most of those packages that did 
reach the shelves (can you 
remember buying Dragon soft- 
ware from a shop?) failed 
miserably due either poor pro- 
gramming or weak program 
design. Having got myself a 
reasonable database program 
what do you use it for? Com- 
puters are ideally suited for sor- 
ting and searching through 
large amounts of information 
but what kind of information do 
most home computers have 
t hat req u i res a co m pu ter to so rt 
it out for them? Why, keeping 
track of the wonderfully witty 
and informative articles in our 
beloved Dragon User magazine 
I hear you both cry! 

Pulser Software have now 
released a database program 
which has been specifically 
written for indexing magazine 
articles and comes either on its 
own or wit h a cho ice of d ata files 
that contain an index of the ar- 
ticles from within the covers of 
such esteemed journals as 
Dragon User and Dragon Up- 
date. The program is available 
on cassette and disc versions 
are available for the usual 
system s i n clu ding Dragon DO S, 
DeltaDOS and CumanaDOS. 

The program is written in 
Basic which is reasonable for 
small database situations and 
has been around long enough 
that there are no bugs' in it. 
Records may be searched for 
using either a 'target 1 string or 
range of record numbers and 
output, as you would expect, 
may be directed to either the 
screen or the printer. The printer 
routines are, by default, set up 
for Seikosha or Tandy printers 
but this may be re-configured to 
suit your own system. All the 
other usual database function 
are provided to allow sorting, 
record modification and addi- 
tion etc. etc. 

Trying to remember which 
issue a particular article was in 
is virt ual ly im possi ble, Magbase 
will not only find it for you but will 
point out other articles on the 



same subject. Magbase must 
be worth its asking price for the 
Dragon User index alone 
without the database soft- 
ware.The on ly real snag with the 
Magbase program is its 
elegance, Having selected and 
conf irmed an option it is annoy- 
ing to be asked to 'press a key to 
start". It's a small gripe I know, 
but when you use the program 
for more than a few minutes it 
becomes very annoying. 

Roy Coates 




Success for 
the search 

Program: Data Retrieval 
System, DR.S. 
Supplier: Grosvenor Soft- 
ware, 2 Beacon Close, 
Seaford, E.Sussex BN25 2JZ 
Price: £9,95 



THE introductory screen has a 
1986 copyright message, but on 
t he mai n me n u t he date is 1 99 3. 
This, coupled with the title, 
leads me to suspect that this 
program shares a common 
ancestry with the Salamander 
DRS System which was around 
in the early days of the Dragon . 
Never mind the history, what 
does it do and how well does it 
do it? Well basically it is a 
database system and il works 
extremely well. 

The program is supplied on 
cassette, but the manual gives 

instructions for transferring to 
disc (CLEAR 100 first if transfer- 
ring to disc — that's been omit- 
ted from the manual!}. In its 
cassette form the program 
copes with 22 000 characters of 
data, all held in memory at once 
A disc file can be as large as 
154,000 characters and is 
treated as up to 7 segments of 
22,000 characters each . Data is 
stored as a number of records, 
each of which can contain up to 
480 characters split into 36 
fields. Data is input and pro- 
cessed via very flexible user 
definable screen layouls, one 
record d isplayed at a time wilh 
f ull screen editing facilities. The 
is written in machine 



is displayed suggesting you 
press D to design your screen 
layout. You then set up the for- 
mat of the screen and the 
number, size and type of each 
field in the record; you can also 
add titles to the fields. The 
photograph shows atypical for- 
mat screen, defining 15 fields 
(A-l are alphanumeric and 1-5 
are numeric) For example, the 
format for' BIRTH DAY "defines 
that up to three entries may be 
made consisting of a two digit 
number for the date, a three 
character month and a four dig it 
year. Having completed the 
screen layout this is saved and 
you return to the main menu. 
You now start adding data by 
selecting the A' command, Data 
can only be entered into the 
defined fields and must be of the 
correct type, ie only numbers 
entered i nto a n u me r i c f i eld . As 
each field is filled the next is 
selected by using either the 

< E N TE R > key or the cu rsor ar- 
row keys. You do not need to fill 
all fields, the program copes 
quite happily with empty ones. 
When a record is complete, you 
press (BREAK) and are pro- 
mpted by "Add' to press 

< ENTER) t you are then pro- 
mpted by "OK, Next/Menu N" 
so press (ENTER) yet again 
and you are ready to start f illing 
the next record. I found this 
tedious, but it works and gives 
maximum flexibility. The se- 
cond photograph shows a 
typical datarecord. You can con- 
tinue entering data until you 
have completed a full list of your 
friends, their addresses, 
children's ages or whatever. 

Having got your database, 
wh at can you do w it h it ? The first 
thing is to save it on tape or disc 
in case of power failure! Then 
you can reformat it if you don't 
Nke the original screen design , 
update records, print it out either 
in total or selectively, but most 



importantly you can do sear- 
ches on it. You enter L S' from the 
main menu and you are 
presented with a blank version 
of your original screen design. 
Into this you can enler search 
characters in any position, a 
rangeforthe initial character of 
a field and ranges for numerical 
values, eg < 10; the program 
then AIMDs these all together 
and does a search for all records 
that meet all these criteria, eg 
you could do a search for all 
people whose surnames begin 
with a letter between J and P, 
who live in Northampton and 
have a child less than 5 years 
old; or look for all music by 
Beethoven recorded by the LSO 
in 1984. 

Just a few minor criticisms of 
the program: it's written for the 
D rago n 32 and can ' t ta ke ad van - 
tage of the extra storage provid- 
ed by the D64. As with a great 
many Dragon programs, you 
are committted to upper case 
letters only. It would have been 
nice if they had added a lower 
case driver using the graphics 
screen (although this would 
reduce storage capacity), and 
three key strokes to enter each 
new data record really is a bit 
tedious Finally, if you are not 
lucky enough to have a disc 
d ri ve, I don 't th i n k its real ly worth 
bothering to try and do anything 
serious with any database pro- 
gram using cassette storage, it's 
just too slow, you could have 
'coked up a written version of 
the information in half the time. 

To sum up, if you've got a 
Dragon with a disc drive, and 

yo u ' ve not got F I ex o r O S9, and 
you wanl to make serious use of 
it, then this really is a must for 
you, It's a piece of professional 
software at an amateur price. 

Remice Hennessy 





So how do you use the pro- 
gram? Having loaded it, a menu 
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Datasort 



Mike Hosken presents a database program 





THIS is a long program , because il does so 
many useful jobs. But it's not as dreadful to 
type in as some of your more major 
machine code listings. It's not particularly 
well structured: it might even be accused of 
suffering from the spaghetti syndrome. 
The reason is that the program has 
gradually evolved, with extra facilities be- 
ing added as my needs expanded- And I 
simply daren't re-structure it for fear of 
bugs. 

There is quite a lot to say, so I will do it in 
note form . 

Description; 

This is a program of approximately 12K 
which will accept any form of tabulatable' 
data; inspect, alter or delete headings or 
records; sort numerically or alphabetically 
on any field; save/load using DragonDOS 
including an option to combine two sorted 
databases into a sorted master database; 
compile an index by optional combination 
of identical entries; print a customised 
tabulation, either a whole database or by 
use of up to three simultaneous selector 
keys; total and average numbencal data, 
all or selected. 

Example: 

Table 1 gives details of variables in 
Datasort, compiled on Datasort. {Note that 
sorting is operational on both fields: se- 
cond column entries are alphabetical! 
within the first column sorted sequence ) 



Datasort will run on any Dragon but 
CLEAR, PEEKS and POKEs are for 
Dragon 32. Examples printed here were 
done on a daisywheel printer but program 
listing CHRS numbers arefortheSeikosha 
dot matrix printer using continuous 
stationery. 

Program and Operational Notes: 
Line 240: if your printer does not have 
automatic line feed on using the last 
character then the full printer width can be 
used. 

Line 250: not possible on other kinds of 
database programs, where fields have to 
be specified before you start, regardless. 
In practice, 'fields can grow' is much the 
more convenient, 

Line 420: beware getting this wrong else 



sorting will treat 9 as greater than 
Line 500: invaluable if you are compiling 

an index, to a book perhaps — or set of 

Dragon Users. 
Subroutine 630 to 650 produces a 

marker to show present maximum field 

width. 

975 Dl R can be inserted if you would like 
to have your files listed on screen before 
making a choice. 

Line 1000 sends you back for another try 
if you don't specify a proper file title: it may 
besafertoexil back to the menu withTHEN 

1210, if you prefer. 

Data could be lost if the same happened 
at line 1410: so again, THEN 1210 (instead 
of 1 390), 

Line 1440: to make use of this facility 
(which saves both time and memory under 
many circumstances), process database 
A, sort it, and save to disc. Re-RUN with 
database B, and sort it. Reload database 
A, effectively on fop of B. (Re-sorting at 
this stage would, if the memory is now 
almost full, take a very long time.) Save 
onto disc, which can be done as a sorted 
combination AB. Re-RUN, Loading AB for 
printing, modification, arithmetic, etc. 

Line 1840: sorting usually uses the 
fastest swapping procedure but this can be 
overcome here Eg, sort book titles fast, 
then sort by authors but retain previous 
sequences': thus Dickens's novels will be 
in alphabetical order but all before Shaw's 
plays (in alphabetical order). 

Line 2280: any headings are printed to 
the left margin so only exceptionally 
should spaces be inserted to the left of the 
first field. 

Line 2390: CHR$ (14) puts the printer in- 
to enhanced mode and CHRS(15) returns it 

to normal. 

Line 2460: tabulations are easier to read 
in blocks of five lines. 

Line 2650: using INKEYS rather than 
INPUT makes i I easier to browse records 
using U option. For other options don't 
press ENTER until AFTER selecting the 
record number. (Or change to INPUT if 
preferred.) 

With the Delete option the gap in the 
array is filled by bringing up the ast entry 
rather than moving ALL records up one 
(which would be loo slow). So deleting 
should be done before sorting where 



possible. Also, any systematic editing 
should start at the end and work upwards, 
ideally. 

Line 2830; any search goes right 
through thedatabase.ratherlhan stopping 

after finding one appropriate entry. 

I hope tine 2970 is clear enough. If the 
displayed field entry is alright then just 
press ENTER to retain it. If it's NOT alright 
then type in everything that you want in that 
field (including what was in it previously if 
you merely want to extend it) and THEN 
press ENTER, 

Line 3650 would, on a database of 
second-hand cars, pick out all/any Ford' 
models, and line 3660 all the injected 
versions if the model number ends in f. 
Line 3720 enables it to select the ones 
priced below, say, 3500, but on a members' 
list it could check all those with names 
starting with S or earlier in the alphabet, 

Line 4180 is simply an anti-abortion 
safety device. But it is so important that it 
demands a three-key response whereas 
the usual ones have been the two-key OK 
or the single- key Y or N: if your universal 
preference is for Y/N then program all such 
choices in whichever way you like. 

Incidentally, Datasort files can be loaded 
into a word processor or perhaps into a 
la be I -printing utility program to add even 
greaierflexibility to the whole system. But if 
y o u " ve al read y got so me data and you want 
to convert it into Datasort format you need 
simply to build a converter program. This 
can be done if you CHAIN the loading sec- 
tion of your own program, with a small mid- 
dle section if any processing is necessary 
(such as the addition of Datasort flags as 
listed in Table 1), and the 'Save data on 
disk' sector of Datasort 

Personal Note: 

Not my prettiest program: it grew a bit 
haphazardly, but it is much my most useful 
one (even if accou nts may act u a I ly be more 

important). 

I have another version for tape storage, 
and I would be interested to hear if anyone 
is interested in that. 

(Mike Hosken is not an easy chap to get 
hold of these days, but if anyone is in- 
terested in alternative versions, drop us a 
line, and we wilt see if we can get in touch 
with him eventually.) 



10 REM DATASORT database sort, store and tabulate: SEIKQSHA printer an 
d DISK file edition. 
20 CLS 

30 PRINT 6172, 11 DATASORT" ; 

HQ PRINT 8204, STRINQ$(8 ,2**3); 

50 PRINT @229V r WITH SEIKQSHA PRINTER" 

60 PRINT 8265. "AND DISK PILES" m ri . mi lM _ OJ _ Dm 

70 PRINT 6352, "A PROGRAM TO STORE STRING AND/ORNUMERICAL DATA AND SORT 

IT INTO ANY ORDER." 
80 PRINT §496* "PRESS ANY KEY. 
90 PCLEAR 1: CLEAR 9000 
100 DIM G$(3) J T(3),VC3) i Y(3) 



11 
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110 IF INKEY$= 1Mr THEN 110 

12 0 CLS: PRINT §96, "DO YOU WISH TO RE-ENTER OLD DAT A FROM DISK? (Y/N}« 
130 INPUT D$ 

140 IF D$0"Y" AND D$<>"N" THEM 130 

150 GLS: IP D$="Y" THEN 970 

160 REM >>>>>>>>>> setting up new records 

170 PRINT .69 6, "INPUT ANY TITLE OR LIST-HEADING FOR THE WHOLE SYSTEM 

(OR JUST f ENTER" BY ITSELF). " 
180 LINE INPUT T$ : GLS 

190 PRINT £96, "HOW MANY items OF DATA (FIELDS } MAKE UP EACH LINE (REGO 
RD ) " ; 

200 INPUT B: B=B-1 : CLS 

210 IF B<1 THEN CLSO: GOTO 190 

Z20 A=1200/(B+1) 

230 DIM F$(A,B),C(B) J H|(B),R(B),SL{B) 

2kQ PRINT "FOR PRINTING AT ONE LINE PER RECORD PLEASE PLAN AN ALLOC 

ATIONGF SPACES (AND PRINT GAPS) TO TOTAL A MAXIMUM OF 79-": PRINT 

250 PRINT "1 = PRESET FIELD WIDTHS 0 = FIELDS CAN GROW": PRINT 

260 INPUT ''CHOOSE" ;U: CLS 

270 IF UOl AND U<>0 THEN 250 

280 PRINT "INPUT ANY FIELD TITLES/HEADINGS." 

290 FOR L=0 TO B 

300 PRINT "FIELD" L+l; 

310 LINE INPUT F$(0,L) 

320 SL(L)=LEN(F$(0 ,L) ) 

330 IF U=0 THEN 360 

340 INPUT "FIELD WIDTH" ;SL(L) 

350 IF LEN(F$(0 ,L) )>SL(L) THEN PRINT "HEADING TOO WIBEi"i GOTO 300 
360 NEXT L 
370 CLS 

380 FOR L=0 TO B; PRINT F$(Q,L); IF U=l THEN PRINT "WIDTH" SL (L) 
390 NEXT L 

400 INPUT "TYPE 'OK' OR 'NO 1 . . . " ; A$ : CLS 
410 IF A$O"0K" THEN 280 

420 PRINT "INDICATE WHICH TYPE OF DATA IS TO BE DEALT WITH IN EACH FI 
ELD: N = NUMBERS OR L = LETTERS ETC . " : PRINT 
4 30 FOR L=0 TO B 

440 PRINT "FIELD"L+1;F$(0 J L}" »; 
450 INPUT A* 

460 IF A$<>"N" AND A$<>"L" THEN 450 
470 IF A$=»L" THEN C{L)=1 ELSE C(L)=0 
480 NEXT L 

490 INPUT "TYPE ( OK T OR * NQ f . . ; A$ : CLS: IF A$O M 0K M THEN 4 20 
500 PRINT "SHOULD RECORDS WITH IDENTICAL" : PRINT F$(0 f 0) 
510 INPUT M ENTRIES.BE COMBINED? (Y/N}";A$ 
520 IF A$<>"Y" AND A$<>"N" THEN 500 
530 IF A$="Y" THEN CR=1 

540 CLS: PRINT "MOW IS THE TIME TO START PUTTINGIN ALL THE DATA." 

550 REM >>>>>>>>>> data Input 

560 PRINT "USE g£0 AS A DUMMY ENTRY TO END DATA INPUT. " 

570 R=R+1; IF R>A THEN PRINT "STORAGE ARRAYS NOW FULL*" : GOTO 1230 

580 PRINT "RECORD NUMBER" ; R 

590 PRINT STRING$(13+LEN(STR$(R)) > 13D 
600 FOR L=0 TO B 

610 IF PKO.DO"" THEN PRINT F$(0,L} ELSE PRINT "DATA FOR FIELD" L+l 

620 GOSUB 630: GOTO 660 

630 X=PEFJU136)«256+FEEKU37) 

640 IF X+SL(L)>1535 THEN PRINT S511: PRINT gX-1056 f ;: GOTO 630 
650 POKE X+SL(L),191: RETURN 
660 LINE INPUT F$(R,L) 

670 IF F$(R ( L)- ,r efie n THEN R-R-l : GOTO 1210 
680 IF L>0 OR R-l OR CR=0 THEN 740 
690 KK-0 

700 FOR K=l TO R-l 

710 IF F$(R,L)=F$(K,L) THEN PRINT "AMEND RECORD" K : M=K ; KK=K 
72 0 NEXT S 

730 IF KK>0 THEN R=R-1 : GOTO 2970 

740 IF LEN(F$(R,L))>SL(L) AND U=0 THEN SL ( L ; =LE N ( F $ ( R , L } } : GOSUB 840 
750 IF L£N(F$(R,L)»SL(L) AND U=l THEN F$ (R ,L ) =LEFT$ { F$ ( R ,L } f SL (L ) ) 
760 NEXT L 
770 CLS 

780 PRINT PEEK(35)*256+PEEK(36)-PE^(33)*256-PEEK(34}"memory free" 
790 PRINT g21, n eee to stop"; 
800 L=R : GOSUB 3090 
810 PRINT 
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820 
830 



GOTO 570 

HEM >>>>> check line length 



850 
860 
870 
880 

bgo 

900 
910 
92 0 
930 
94 0 
950 
960 
970 
980 
9 90 
100 
101 
102 



W=0: S= 
FOR LL=0 TO B 

W-W+SL(LL)+R(LL) : IF R(LL)>0 THEM S=l 
NEXT LL 

PRINT " (LINE LENGTH"W; 

IF S=l THEN PRINT "INCL, GAPS.)" ELSE PRINT "WITH NO GAPS* ) 
IF J=6 THEN 930 ELSE IF J=3 THEN RETURN 
FOR LL-1 TO 500: NEXT LL 
RETURN 

FOR LL=0 TO 6 

PRINT ''FIELD^LL+l ,SL(LL) "CHARACTERS" 
NEXT LL 

IF INKEY$="" THEN 9 60 ELSE 1210 

REM >>>>>>>>>> reading data from disk 

FRINT %3 6 /'INPUT THE NAME OF THE REQUIRED DATA FILE," 

INPUT H$ 
0 IF H$="" THEN 980 
0 CLS 

0 PRINT 6160, "CHECK THAT THE DISK IS IN PLACE. PRESS ANY KEY 



HE 



1030 IF INKEY$=" " THEN 1030 
1040 CLS : PRINT S236,H$ 
1050 FREAD H$;A 
1060 FREAD H$;B 
10 70 FREAD H$;CR 
1060 FREAD H$jY 
1090 FREAD H$;U 
1100 FLREAD H$;T$ 

1110 IF R=0 THEN DIM 0(B) ,F${ A,B) ,H$ CB) ,R(B) ,SL(B) 

1120 FOR L=0 TO B: FREAD H$;C(L): FREAD H*;Z: IF Z>SL(L) THEN SL(L)=Z 
1130 NEXT L 

1140 FOR L-0 TO B: FLREAD H$;F${G,L); NEXT L 
1150 FOR L=R+1 TO R+Y 
1160 FOR LL=0 TO B 

1170 FLREAD H$;F$(L > LL): PRINT F$(L,LL) 
1180 NEXT LL,L 
1190 CLOSE 

1200 R=R+Y: IF R=Y THEN Y=G 
1210 REM >>>>>>>>>> menu 
1220 CLS1 

main menu" 

1 = SAVE DATA ONTO DISK" 
SORT DATA INTO A NEW ORDER" 
PRINT" 

INSPECT/ ALTER/DELETE DATA" 

ADD MORE DATA" 
CHECK LINE LENGTH" 

ARITHMETIC" 



1230 PRINT 836 
1240 PRINT 896 
1250 PRINT "2 
1260 PRINT "3 
1270 PRINT "4 
1280 PRINT ,r 5 
1290 PRINT 
1300 PRINT 
1310 PRINT 
1320 PRINT 
1330 PRINT 
1340 INPUT 



ir 



I" 



"6 

"7 

"8 

"9 

"0 
ii 



= LOAD EXTRA DATA FROM DISK" 



= CHANGE MAIN TITLE": PRINT 
= FINISHED"; PRINT 
WHICH NUMBER"; J:, CLS 
1350 IF J>9 THEN CLSO: GOTO 1230 
1360 IF J=0 THEN 4170 

1370 ON J GOTO 1380,1710,2100,2620,780,840,3120,970,410 
1380 REM >>>>>>>>>> saving data onto disk 
1390 PRINT "INPUT A>i S-CHARACTER FILE NAME -"; 
1400 INPUT H$ 

1410 IF H$="" OE LEN(H$}>8 THEN 1390 
1420 IF Y=0 THEN Q=0: GOTO 1490 ELSE Q=l 
1430 PRINT "IF YOUR TWO DATA FILES ARE aaciiSORTED THEY 
S A COMBINED-SORTED FILE." 

1440 INPUT "DO YOU WISH THIS TO BE DONE? (Y/N) " ;A$ 
1450 IF A$<>"Y" AND AtO 1 ^' 1 THEN 1430 
IF A$="N" THEN Q=0 : GOTO 1490 

INPUT "WHICH FIELD NUMBER FOR SORTING? ";Z: Z-Z-l 
IF Z<0 OK Z>B THEN CLSO: GOTO 1470 

PRINT: PRINT "CHECK THAT THE DISK IS IN PLACE. PRESS ANY KEY WHEN 

1! 

INKEY$=" " THEN 1500 



SAVED 



J 



1460 
1470 
1480 
1490 
READY . . 
1500 IF 



1510 CLS 

1520 M-l: N=R-Y+1 

1530 PRINT 8224, "SAVING YOUR " ;H$;" DATA FILE 
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1540 FWRITE H$;A 
1550 FWRITE H$jB 
1560 FWRITE H$;GR 
1570 FWRITE H$;R 
1580 FWRITE H$;U 
li>9Q FWRITE H$;T$ 

1600 FOR L=G TO B: FWRITE H$;C(L): FWRITE H$;SL(L): NEXT L 

1610 FOR L=0 TO B: FWRITE Ht;F$(G,L): NEXT L 

1620 FOR L=l TO R-l 

1630 IF Q=Q THEN S=L: GOTO 1650 

1640 IF F$(M,Z)<F$(N,Z) OR N>R THEN S=M: M=M+1 ELSE S = N: N=N+1 
1650 FOR LL=0 TO B 

1660 FWRITE H$;F$(S,LL) : PRINT Ft (S ,LL) 
1670 NEXT LL,L 

1680 IF Q»0 OR N=R THEN S=R ELSE S=M 

I6y0 FOR L=0 TO B j FWRITE H$;F$(S > L): PRINT F${S,L): NEXT L 

1700 CLOSE: GOTO 1210 

1710 REM >>>>>>>>>> sorting procedure 

1720 FOR L=0 TO B 

1730 PRINT "F1ELD' , L+1 ,1 IS " ; 

17 40 IF C{L)=1 THEN PRINT "ALPHABETICAL" ELSE PRINT "NUMERICAL" 
1750 IF F${0,L)O ir " THEN PRINT F$(0 J L) 
1760 NEXT L 

17 70 INPUT "WHICH FIELD IS TO BE SORTED" ;K: K=K-1 
1780 IF K<0 OR K>B THEN CLSO: GOTO 1710 

1790 IF 0(1) =1 THEN 1840 

1800 PRINT: PRINT "CHOOSE THE REQUIRED SORT:-" : PRINT 

1810 PRINT "1 » DECREASING (TOP FIRST) 0 = INCREASING" 

1820 INPUT M 

ld30 IF MOl AND MOO THEN CLSO: GOTO l800 

18 4G PRINT "CHOOSE AGAIN:-' 1 
lo50 PRINT "1 = FASTER" 

I860 PRINT "0 = RETAIN PREVIOUS SEQUENCES" 
1870 INPUT H: CLS 

1880 IF HOI AND HOO THEN CLSO: GOTO 1840 
18 90 FOR L=l TO R 
1900 N=L 

1910 IP C(K)=1 THEN 1920 ELSE IF M=l 'I'H EJM 19b0 ELSE I98O 
1920 FOR LL-N TO R: IF F${LL J K) <F$ (N,K) THEN N=LL 
1930 NEXT LL 
19^0 GOTO 2000 

1950 FOR LL=N TO R: IF VAL(F$(LL,K) )>VAL(F$ (N,K) ) THEN N=LL 
I960 NEXT LL 
1970 GOTO 2 000 

1980 FOR LL=N TO R": IF VAL(F$(LL 4 K) )<VAL(F$ (N,K) ) THEN N=LL 
1990 NEXT LL 

2000 IF N=L THEN FOtf LL-0 TO B: PRINT F$ (L ,LL) ; NEXT LL: GOTO 2030 
2010 IF H=0 THEN 2050 

2020 FOR LL-0 TO B: Z$=F$(N,LL): F$ (N,LL) =F$(L ,LL) : F$(L,LL)-Z$; PRINT 
F$(L,LL): NEXT LL 
2030 NEXT L 
2040 GOTO 1210 

2050 FOR LL=0 TO B: H$(LL)-F* (N,LL) : NEXT LL 
2060 FOR LL=N-1 TO L STEP -1 

2070 FOR LS=0 TO B: F$(LL+l/LS)-F$(LL t LS) : NEXT LS,LL 
2080 FOR LL=0 TO B: F$ (L ,LL) =H$ (LL) : PRINT H$ (LL) : NEXT LL 
2090 GOTO 20 30 

2100 REM >>>>>>>>>> printing 
2110 CLS 

212 0 PRINT S9," PRINTING MENU "; 

2130 PRINT e64, ,r i = ONE NUMBERED RECORD" 

2140 PRINT "2 = SELECTED RECORDS TABULATED" 

2150 PRINT "3 = ALL RECORDS TABULATED"; PRINT 

216O PRINT "4 = RET'JRN TO MAIN MENU" 

2170 PRINT £352, "INPUT YOUR CHOICE"; 

2180 INPUT M: CLS 

2190 IF M<1 OR M>4 THEN CLSO: GOTO 2120 
2200 IF M=4 THEN 1210 ELSE GOSUB 830 

2210 PRINT "FIXING THE REQUIRED TABULATION PARAMETERS:-": PRINT 
2220 IF RU)=0 THEN 2260 

2230 PRINT "IS THE PREVIOUS TABULATION LAYOUT ALRIGHT?" 

2240 INPUT "TYPE 'OK' OR , NO , ..,";A$: CLS 

2250 IF A$="OK" THEN 2320 

2260 FOR L=0 TO B 

2270 PRINT "FIELD"L+1;F$(0,L) 
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2280 INPUT "HOW MANY SPACES TO THE LEFT OF THE FIELD ENTRY" ;R(L) 
2290 IP R(L)<0 OR R(L)>&0 THEN PRINT "DON'T BE DAFT!"; GOTO 2280 
2 300 PRINT: NEXT L 
2 ""J 1 0 G Ij ^ 

2^20 PRINT 6l60 , "PLEASE CHECK THAT THE PRINTER ISREADY , AND THEN PRESS 

'ENTER' ." 
233O X NP UT A.$ 

23140 PRINT "THE PRINTER STILL ISN'T READY, FOR SOME REASON. PLEASE 
CHECK AND REMEDY. 1f 
2350 PRINT #-2: CLS 

2 360 IF M-l THEN GOSUB 2570: GOSUB 2510: GOTO 2100 
2 370 IF M=2 THEN 3440 

2380 PRINT §229 /'output to the printer" e™™*^™/!^ 
2390 IF LEN(T$)>1 THEN PRINT §-2 ,CHR$ ( 1 4}T$ : PRINT #-2 , STRING* (LEN(T$) 
ir = n ) CHR$ (15) 

2400 IP LEN(F$(0 1 0))+LEN(F$(O f l))-0 THEN PRINT #-2: GOTO 2440 

2410 PRINT #-2 

2420 L=0: GOSUB 2510 

2430 PRINT #-2 

2 440 FOR L=l TO R 

2450 GOSUB 2510 

2460 IF L=INT(L/5)*5 AND L<R THEN PRINT 1-2 
2A70 NEXT L 
2480 PRINT §-2 
2490 GOTO 2100 

2500 REM >>>>> tabulating a record on the printer 
2510 K=0 

2520 FOR LL-G TO B 

2530 K=K+R(LL); PRINT #-2 ,TAB{ K )F$ (L ,LL) ; : K=K+SL(LL) 

2540 NEXT LL 

255O PRINT £-2; RETURN 

2560 REM >>>>> choosing record number t ^ nmr ^ 

2570 PRINT Gieo/'INPUT THE number OF THE RECORD WHICH IS TO BE LISTED 

ON THE PRINTER (OR , 0 t IF NOT KNOWN, TOBE SEARCHED FOR)." 
2580 INPUT L 

2590 IF L=0 THEN CLS: GOTO 2830 

2600 IF L>R THEN CLSO: PRINT "THERE AREN'T THAT MANY ENTRIES!" 
570 

2610 CLS: RETURN 

2620 REM >>>>>>>>>> Inspecting/ altering data 
2630 PRINT "PRESS -" 

2640 PRINT "aLTER dELETE INSPECT nEXT mENU" ; 
2650 D$=INKEY$ 

2660 IF D*0"A" AND D$.<>"D" AND D$<>"I" AND D$<>"H" AND D*<>"N" THEN 2 
650 

2670 CLS 

2680 IF D$="M" THEN 1210 

2690 IF D*="N ,f THEN L=L+1 : IF L=<R THEN 2770 ELSE 1210 
2700 PRINT "INPUT THE number OF THE ENTRY OR , S t FOR A SEARCH," 
2710 INPUT P$ 

272 0 IF VAL(P$)>R THEN PRINT "THERE AREN'T THAT MAN* ENTRIES! 
640 

2730 IF VAL(P$)<0 AND P$<>"S" THEN 2700 
2740 IF P$="S" THEN 2830 
2750 CLS: IF D$="A" THEN 2960 

27 60 L=VAL(P$) 
2770 GOSUB 3090 

2780 IF D$- n I w OR D$="N" THEN 26^0 

2790 INPUT "TYPE 'GO* TO DELETE (OB r KEEP TO RETAIN)..."; 

D$ , , 

2600 IF D$O"G0" THEN CLS: GOSUB 3090: PRINT: GOTO 2640 

2810 FOR LL=0 TO 6 : F$ (L , LL) =F$ (R ,LL) : NEXT LL 

2820 R = R— 1 1 CLS: GOTO 26^0 

2830 PRINT* "WHICH FIELD IS TO BE SEARCHED? (1 TQ"B+1")" 

2640 INPUT N: N=N-1 

2850 IF N<0 OR N>B THEN 2830 

2860 PRINT "NOW INPUT THE 

2870 IF C(N)=0 THEN PRINT "NUMERICAL " ; 

2880 PRINT "DATA TO BE FOUND." 

2890 LINE INPUT m 

2900 CLS: Q=0 

2910 FOR L=l TO R 

292 0 IF M$=F$(L,N) THEN GOSUB 3090 
2930 NEXT L 

40 IF Q-0 THEN PRINT "searched but with nil result 



GOTO 2 
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2950 GOTO 2 640 
2960 M=VAL(P$) 

2970 PRINT "INPUT NEW DATA OR 1 ENTER' ONLY TO RETAIN FRESENT FIELD EN 
TRY . « 

2980 FOR L=0 TO B 
2990 PRINT F$(M,L) 
3000 GOSUB 630 
3010 LINE INPUT D$ 

3020 IF D$<>»" THEN F$(M,L)=D$: IF LEN(F$(M ,L) )>SL(L) AND U=Q THEN SL( 
L)=LEN(F$(M,L) ) ; GOSUB 830 

3030 IF U=l AND LEN ( F $ ( M , L ) ) > SL ( L ) THEN F$(M ,L)=LEFT$ (F$(M,L) ,SL<L) ) 
30 40 NEXT L 

3050 CLS: L=M: GOSUB 3090 
3060 IF J<>4 THEN 550 
3070 GOTO 2640 

3080 HEM >>>>> listing a record on VDU. 
3090 PRINT "RECORD NUMBER" ; L 

3100 FOR LL=0 TO B: PRINT F$(L,LL): NEXT LL 
3110 Q=l : RETURN 

3120 REM >>>>>>>>>> arithmetic functions 

3130 PRINT 664, "YOU CAN HAVE TOTALS AND AVERAGE SF OR ANY NUMERICAL DATA 
, EITHER FROM ALL OR SELECTED RECORDS,": PRINT 
3140 PRINT "THE NUMERICAL FIELDS ARE:" 
3150 FOR L=0 TO B 

3160 IF C(L)=Q THEN PRINT "FIELD 11 L+l ;F$ (0 ,L ) 
3170 NEXT h 

3180 INPUT "WHICH FIELD NUMBER" ;K: K=K-1 : CLS 

3190 IF K>B THEN 3140 

3200 IF CCK)<>0 THEN 3140 

3210 PRINT fi64,"l = ALL RECORDS" 

3220 PRINT "0 = SELECTED RECORDS" 

3230 INPUT "CHOOSE 1 OR 0";M: CLS 

3240 IF MOO AND M<>1 THEN 3210 

3250 AT=0: AN=0 

3260 IF M=0 THEN 3320 

3 270 FOR L=l TO R 

3280 AT=AT+VAL(F$(L,K) ): PRINT §239,AT 

3290 IF VAL(F$(L,K))<>0 THEN AN=AN+1 : PRINT g271,AN 

3300 NEXT L 

3310 GOTO 3330 

3320 GOSUB 3470 

3 330 FOR L=l TO 1000: NEXT L 

3340 CLS: PRINT 664, "TOTAL OF "F$(0,K> 

3350 IF M=0 THEN PRINT "FOR THE SELECTOR (S) GIVEN" 

3360 PRINT "IS"ATriF AT=0 THEN 3420 

3370 IF M=l THEN 3400 

33&0 PRINT "ON THE" AN "RELEVANT ENTRIES" 
3390 PRINT "WITH AVERAGE ENTRY OF "AT /AN 
3400 PRINT "AND AVERAGE OVER ALL"R 
3410 PRINT "RECORDS OF"AT/R 

3420 PRINT @448 4 "PRESS 1 ENTER' WHEN READY..."; 

3430 INPUT A$: GOTO 1210 

3440 REM >>>>>>>>>> selective print 

3450 PRINT "YOU CAN HAVE A PRINTED TABLE OF ALL RECORDS WHICH COMPLY W 
ITH YOUR SPECIFICATIONS. " : PRINT 
3460 GOSUB 3470: PRINT §-2\ GOTO 2100 
3470 REM >>>>> selecting records 

3480 PRINT "WORD KEYS CAN BE THEMSELVES OR LEFT-END OR RIGHT-END, " 
3490 PRINT "ANY KEY CAN BE = OR < OR >•": PRINT 

3500 PRINT "(INPUT 0 AT ANY STAGE TO ABORT BACK TO THE MAIN MENU.)"; 
PRINT 

3510 INPUT "DO YOU WISH TO SPECIFY 1 OR 2 OR 3 SELECTOR KEYCS 

)";H: CLS 

3520 IF H<0 OR H>3 THEN 3510 
3530 IF H=0 THEN 1210 
3540 FOR L=l TO H 

3550 FOR LL-0 TO B: PRINT LL+1 ;F$(Q ,LL) : NEXT LL 

3560 INPUT "WHICH FIELD NUMBER" ; Y (L ) : Y(L)-Y(L)-1 : CLS 

3570 IF Y(L)>B THEN 3560 

3530 IF Y(L)=-1 THEN 1210 

3590 PRINT F$(0,Y(L)) 

3600 INPUT "INPUT THE SELECTOR KEY WORD OR KEY VALUE" ;G$(L) : CLS 

3610 IF G$(L)-'< " THEN 36OO 

3620 IP C(Y(L))-0 THEN T(L)=1: GOTO 3700 

3630 PRINT "WHICH CRITERION -" 

3640 PRINT "1 = ONLY "G$(D" AND ALL "G$(L) 
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H 



If 



G$(L 



3650 PRINT "2 = "G$(L) M AT LEFT END" 
3660 PRINT "3 ■ r, G$(L)" AT RIGHT END 1 ' 
3670 INPUT T(L) : PRINT 
3680 IP T(L)<0 OR T(L>>3 THEN 3630 
3690 IF T(L)=0 THEN 1210 
3700 PRINT "INPUT THE REQUIRED SELECTOR 
3710 PRINT "1 = ,T G$(L)" ONLY 11 
3720 PRINT "2 ■ UP TO r, G$(L} 
3730 PRINT "3 = AFTER/GREATER THAN 
37*10 INPUT V(L): CLS 
3750 IF V{L)<0 OR V(L)>3 THEN 3700 
3760 IF V(L)=0 THEN 1210 
3770 NEXT L 
3780 CLS 

3790 FOR L-l TO R 

38OO PRINT L: P»l 

38 10 FOR LL=1 TO H 

3820 IF P-0 THEN 4080 

3830 ON T(LL) GOTO 3840,3850,3860 

3840 ON V(LL) GOTO 3870,3890,3920 

3850 ON VCLL) GOTO 3950,3970,3990 

386O ON VCLL) GOTO 4010,4030,4050 
3870 IF F$(L,Y(LL) )<>Gt(LL} THEN P=0 
3880 GOTO 4060 

3890 IF C(Y(LL))-0 AND VAL (F$(L,Y(LL) ) )>VAL(G$(LL) ) THEN P=0 
3900 IF CCYCLL))-1 AND F$ (L , Y (LL) ) >G* (LL) THEN P-0 
3910 GOTO 4060 

3920 IF C(Y(LL))=0 AND VAL (F$ (L ,Y (LL) } )<VAL (G$<LL> ) THEN P=0 
3930 IF C(YCLL))-1 AND F$(L,Y(LL) )<G${LL) THEN P=0 
3940 GOTO 4060 

3950 IF LEFT$(F$(L,Y(LL) ),LENCG$CLL)))OG$(LL) THEN P=0 

3960 GOTO 4060 . ^ „ „ „ 

3970 IF LEFT$(F*{L,YCLL)},LEN(G$(LL) ))>G$(LL) THEN P-0 

3980 GOTO 4060 

3990 IF LEFT$(F$(L,Y(LL)),LEN(G$(LL)))<G$(LL} THEN P=0 
4000 GOTO 4060 

4010 IF RIGHT$(F$(L,Y(LL)),LEN(G$(LL) ))<>G$(LL) THEN P=0 
4020 GOTO 4060 

4030 IF RIGHT$CF$CL,Y(LL)) 1 LEN(G$(LL)))>G$(LL} THEN P=0 
4040 GOTO 4060 

4050 IF RIGHT$(F$(L,Y(LL) ),LEN(Q$(LL) ))<G$(LL) THEN P-0 
4060 NEXT LL 

4070 IF P=l THEN GO SUB 3080: IF J=3 TH 
L,K) ) : AN=AN+1 
4080 NEXT L 
4090 RETURN 

4100 REM >>>>>>>>>> change main title 
4110 PRINT 11 INPUT THE NEW TITLE" 

4120 IF T$<> ,,H THEN PRINT 1f IN PLACE OF"; PRINT T$ 
4130 PRINT: LINE INPUT T$ : CLS 
4140 PRINT @96,T$: PRINT 



GOSUB 2500 ELSE AT=AT+VAL (F$ ( 



4150 INPUT "Ti?E 'CEC 1 OR 



A$: CLS 



4160 IF A$= Tf 0K tl THEN 1210 ELSE 4110 
4170 REM >>>>>>>>>> finished ' ^ 
4180 PRINT £192, "ARE YOU SURE YOU HAVE FINISHED? IF SO TYPE 'END 
ELSE PRESS 1 ENTER 1 BY ITSELF/' 
4190 INPUT D$: CLS 
4200 IF D$<>"END fl THEN 1210 

4210 PRINT 6236, "f inished": PRINT §268, "datasort" 
4220 REM M.J. HOSKEN 



OR 



VARIABLES used in DATASORT 
program -disk version 



A MAXIMUM NUMBER OF RECORDS = LENGTH OF ARRAY 

At RE-USEABLE RESPONSE 

AN NUMBER OF NON-ZERO VALUES BEING TOTALLED AND AVERAGED 

AT TOTAL OF ALL VALUES DURING ARITHMETIC OPTION 

B NUMBER OF FIELDS PER RECORD MINUS 1 = WIDTH OF ARRAY 

C(I3) FLAG; 0=NUMERICAL, 1= STRING 

CR FLAG: 1 = AMEND RECORD WITH IDENTICAL FIRST FIELD 

D$ RE- USEABLE RESPONSE 

E 

F$(A,B) MAIN DATA ARRAY , A LONG BY B WIDE 

F$(0,B) FIELD TITLES - IF ANY 

QIC 3) SELECTOR FOR PRINT 

H FLAG: (^SOPHISTICATED SORT, 1-FAST SORT 

H NUMBER OF SELECTOR KEYS 

Hi NAME OF DATA FILE (TEMPORARY) 

H$(B) SPARE ARRAY FOR DOING SERIES OF SWAPS 

J MAIN MENU SELECTOR 

K FIELD SELECTOR FOR SORTING 

K PRINT-TAB VALUE 

KK FLAG : l = RECORDS HAVE BEEN COMBINED 

L LOOP CONTROL 

LL INNER LOOP CONTROL 

LS TERTIARY LOOP CONTROL 

M CONTROL ONE SORTED LIST DURING FILE COMBINING 

M FLAG: 0=INCREASING SORT, ^DECREASING SORT 

M FLAG: 0= SELECT ED RECORDS SUMMED, 1=ALL RECORDS SUMMED 

M PRINT MENU SELECTOR 

M RECORD SELECTOR FOR ALTERATIONS 

M$ DATA TO BE FOUND BY SEARCH 

N CONTROL ONE SORTED LIST DUKING FILE COMBINING 

N FIELD TO BE EXAMINED IN SEARCHING 

P$ RECORD SELECTOR TO INSPECT/ ALTER/DELETE 

Q FLAG: 1 "-SUCCESSFUL SEARCH 

Q FLAG: ^COMBINE TWO DATA FILES 

R NUMBER OF RECORDS IN MEMORY 

R(B) GAPS TO LEFT OF FORMATTED FIELDS WHEN PRINTING 

RP NUMBER OF RECORDS PER PAGE 

S FLAG: 0-WITHOUT GAPS, 1=GAPS INCLUDED IN PRINT FORMAT 

S NUMBER OF RECORD TO BE PRINTED TO DISK FILE 

SLCB) STRING LENGTHS OF FIELDS 

T$ PRINTABLE TITLE FOR WHOLE SYSTEM 

T(3) STRING-END SELECTOR ONLY/LEFT/RIGHT 

U FLAG: 0**1 ELDS CAN GROW , 1=PRESET FIELD WIDTHS 

V(3) VALUE SELECTOR = < > 

W TOTAL WIDTH OF PRINT LINE OF LONGEST RECORD 

X CALCULATOR FOR FIXING POSITION OF INDICATOR CURSOR 

Y NUMBER OF RECORDS INPUT FROM DISK 

Y(3) FIELDS INVOLVED IN SELECTION 

Z FIELD AS CRITERION FOR COMBINING FILES 

Z STRING LENGTH DURING INPUT FROM DISK 
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Mountain building 



IF you h ave booked for an unknown holiday 
destination, or are thinking of moving 
house, or you study geography, then have 
a look at this program which may be of use 
to you By using a map with contours and a 
ruler, you can measure off the distance of 
the contours from the left hand edge of the 
ruler and reconstruct the shape of the hills 
or mountains you are viewing. 

The program works to scale, but this 
does mean that the vertical height lends to 
be rather low and insignificant unless you 
are reconstructing the Alps or the 
Himalayas. To get round this problem it is 
possible to distort the vertical scale to ex- 
aggerate the hill size. 

You can naturally print out any mountain 
drawn on the high resolution screen using 
a standard screen dump, bul I have incor- 
porated two ways in which a quicker print 
can be obtained using a Tandy CGP1 15 or 
similar printer. The first merely draws a line 
of the hill but the second way, obtained by 
pressing X' at the beginning 



Anthony Daniel scales the hills with the help of contours 

gram, shades the hill rather neatly as in the the figure on the computer foil owed by a n d 
example, and also colours it on the screen. indication of the direction of the slope to 
I have set the default height between follow, as instructed in the program. 



contour lines at 100 metres. This is pro- 
bably more than on most maps you wish to 
measure but it makes testing the program 
when setting it up easier. If the total 
available height (as given on the screen) is 
inappropriate to the hills you are measur- 
ing you must alter the survey area. If you 
place yourself a long way from the hill it will 
appear much smaller. This is to enable you 
to see if a distant hill can be seen over the 
top of a nearer smaller hill, When 
reconstructing only one hill use the defau It 
distance of 1 km. In this section I have not 
taken into account the curvature of the 
earth but it is not difficult to do so if you are 
mathematically minded 

Once you have sel up the initial criteria 
based on the map you are using read off 
the distance of the contour line from the left 
hand edge of the survey area (not the 
distance between contour lines) and enter 



m mediate corrections may be made. If 
you enter the slope wrongly simply re-enter 
it. If you put in an incorrect figure just back- 
space. However, to correct an error over- 
looked earlier on in the sequence end your 
r cicon st ruction by pressing 'C, not 'F r . This 
takes you through a routine allowing cor- 
rection of each ind ivid ual entry as req u ired. 

Once the mountain is drawn press the 
space bar to discover the range of options 
available. As already mentioned you may 
reconstruct a second mountain or alter the 
vertical scale. If you wish to restore the 
original scale you must of course clear the 
screen first. 

A program that changes scale in this way 
could be used to build up patterns and 
there are other applications that can be 
derived from it which have nothing to do 
with mountains, so I hope it will be of 
general interest and enjoyment. 



5 5 'MOUNT' - CONTOUR RECONSTRUCTION PROGRAMME BY ANTHONY DANIEL. - MARCH 1937 

10 PRINT#-2,CHR*(18): PRINT#-2, 'A 1 : PRINTt-2, CHR*< 16) s 'PRINTER CODES FOR TANSY CSP115 PRINTER. 

DELETE JF PRINTER NOT IN USE 
2@ PCLEARS 

40 F=l : C0=i 

5E PH0DE3, 1= SCREENlfl: PCL3 

afl CLS:PRlWT:PRM:PRlNT B rOR SHADED PRINTINGS OF MOUNT A I NSH A FEE PRESS T X' ELBE PRESS ANY OTHE* KEY' 
X$=INKEr$: IF X«=" THEN 70 
IF m*V THEN EK-0 ELSE E1N 

90 CLS : PR I NT : PR I NT : PR I NT TAB i 5 > " SCALE 1 : PR I NT TAB ( 5 > " ENTE 9 M{ ! , OF MM, PES KM. P R 1 NTTAB J 5 i 1 X r A LL T =2dh? ?z~ IN°U T SC 



IF SC=C THEM SC=20 
110 GOSUB120: G0SUB16O: 60T02I 

120 PPINTTAB(d) "VIEWPOINT 1 :PRIWTTAJ(5) "FOR COMPARING SEVERAL HI LLSDi STANCE OF OBSERVER MUST EE PVHN 

IN K I LOME T RES* : PR I NTTAB ( 5 ) 1 DEFAU LT IS 1 KM (KIN. VIEH-INS DISTANCE)' 



:? W-Z THEN W=i>0 



s IF VP=fc THEN VP=I 

P 

153 RETURN 

!*@ as 

17E PRINT s PRINT* PRINTTAB 15) 'SURVEY AREA WIDTH IN MM, A5 COVE RED- BY RULER ON MAP" iPRINTTM( 5) "DEFAULT GIVES 

IBS INPUT 
191 

2130 IF MMC255 THEN D=INT( 25 5 /MM J 

2113 IF rtt>2M THEN D=l/t INT (MM/255 )H) 

228 G0Btfti7Al 

m PPINTTAB(5) "OBSERVER IS PLACED IN THE MID POINT OF THIS WIDTH. * : PRI ■■!TTAl(5) B flElW AVAILABLE USING THISSlALE 

AND AREA = ' : INT ( 19 9080/ CSC*DJ } ; 1 METRES' 
240 PRIWTTAB(5>'T0 INCREASE HEIGHT I NCRE ASES'JR VE V AREA OR '.'ICE VERSA* 1 PRIMTTAE(S) "PRtSS ft TO REDO OR P TO PROCEED" 

250 PM^INKEYi: IF PM*= BB THEN 250 
260 IF PfH='P" THEN RETURN 

270 IF PM$= B R' THEN CLS: PR 1 NTTAB { 5 > ' UN REV 1 SED SURVEY AREA IS "?MH?m B ! PRINT: GOTO 1 73 : ELSE m 

2S0 CLS : PRINT: PR I WT : PR I NTTAB (5 ) " CONTOURS B ' PR J NTTAB (5 ) ""ENTER CONTOUR INCREMENT IN tbTEfiS. DEFAULT GIVES 100 fl.' 

293 INPUT CN: If CN=tf THEN CN=100 
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* ■ t 
1 



] 3' = LEVEL" J PRINT 



NUMBER 



SflnS" ! r F SMRAL H3LLS AftET0 BE mm ™ THE 5TART2N6 HEIGHT USED SHOULD JE 
OBSERVER S HEIGHT. IF THE SHAPE OF ONLY ONE HILL IS REQUIRED THIS IS IPflELEVENT' 

EACH CONTOUR FRO h THE ,eft hand edge of the ruler," 
PRINTTAJ (5) "SEPARATE EACH DISTANCE EY THE SLOPE DIREC 
(SIGNS ON SCREEN ARE + , - AND =)' 

PRINTTABO) "TO END 1V£ SEQUENCE PRESS T\ PRIOR TO PRESSING F 
SEQUEWCESMUST EE AT LEAST 4 NUMBERS LONG. ■ \ 

PRI«TTAB(5i -PRESS SPACEBAR TO CONTINUE THROUGHOUT PROGRAMME"; 
TF INKEY*=CHR«C32) THEN 2m ELSE 350 
Af=" 

37U CLS: M=33 

PRINTS, A*;: A$=": G0SUB172I 
A$=INKEYt: IF A$="" THEN 390 
IF Af="C" GOSUE1420: 50T01519 
IF Afs'F' AND PV=] THEN 390 
IF AI="F" THEN GO5UB1420r GOTO630 

l l^^jZ^^ imm<nm m PEmm ™ K> ™ ™ W(«»wiM>ia im prints 



THE DISTANCE OF 



350 



390 



410 



i i 

1 1 



40 IF LENfE* CA) ) 



V 



THEM B$<AJ=LEFT*!BI{Ai,LEM(B${A)Ki) ELSE 3ifA)= ni 



458 50T039I 
460 IF ASCfA*)>47 



a ■ ■ 



AK(A*K5B THEN 530 



43B IF A*= B 3* THEN A*=*=" 
490 IF £*="+" OR Ef="-" OR Ef="=" THEN PV=1 
530 IF A$='+' OR A*=*-* OR A*='=" 
6OTO510: ELSE390 

5 IB IF PV=1 AND PW=2 THEN E*=A*J GOTO380 
520 E$=A*s *t=M+Ii G0T03BB 
530 TF PW=1 THEN GOSUB550 
540 Et=At:B*{A}=E$(A)+A*i N=Mri: GGT03BB 
552 IF THEN GOSUB1420 ELSE 570 

560 C-:A+lbC+l:C=CfAH):B*(A} = 



790 Y(N}=190-INTCPS*C(NJ«€*Fi 



_ i n - 



570 IF THEN GOSUE1420 ELSE 590 

500 C(A+l)=C-i:C=C(A+l):BtiA)= Pi ;GOSUE1450rGOTO&10 
IF Et=^« THEN 5OSUE1420 ELSE 620 
C(A+1 )=C=C=CCA+1 5 :B*iA>="s GOSiJS 1450: GO TOMB 



20 RETURN 

i>M 1 FINDS HIGHEST AND LOWEST POINTS 
6413 FOR N=0 TO A 

650 IF N=8 THEN Z=CfN>: U=CW)s GOTO680 
660 IF CfN)>2 THEN Z=C(m. a 
670 IF CfNhw 'HEN W=C<N) 
650 NEXT 

690 IF H<| THEN 700 ELSE 750 
7S0 FOR N=0 TO A 
710 C{N)«C(MMJ 
720 NEXT 
730 Z=Z-U 

7«l * RELATES SCALE AND 

AND FINDS SCREEN COORDINATES 
750 G=CN*SC*D/1000 
760 PH0DE3, 1 : SCREEN1 . 1 
770 FOR H=% TO A 

780 .^M)=(B(N)*D*PS)+((240-INT(MM*D*PS))/2) 



010 NEXT 

828 FOR N=B TO A 
B30 PSETtf(N) T Y(N>) 
S40 IF N=0 THEN 850 ELSE 

850 IF Y<AKY<B> THEN LINE(X(A>,Y<A) J-fX(A) T Y(0)),PSET: 
LINE(X(A),Y(fl))-(X(flM(B>>,PSET: GOTO890 

SA0 IF Y(A»Y<B) THEN LIJ€CX{A),Y(A) WX(B)tY<A>),PSET: 

LINEa<B)iY{AJ)-(X(e),Y(l))iPSET:GaT0e9fl: ELSE LINE 

(X<AM(AiMX<8MlB)),PS ET 
878 GOTO890 

880 LINEU(«-i),Y(N-n)-(X(N),y(Nn,PSEI 
B96 NEXT 

900 IF EX=1 THEM 1000 

910 1 PAINTS MOUNTAIN ON SCREEN IF REQUIRE. PRESS 'X 1 

FOR THIS AT BEGINNING OF PROGRAMME 

920 FOR N=l TO A-l 
930 IF Y(N)>Y(N-1J THEN Y=Y(N)-2 
940 IF Y(N)=YCN-li THEN NEXT 
950 IF YCNKYOHJ THEN Y=Y(N)+2 
960 X~X(K1 

970 IF PPOIKT(X,Y>=5 "HEN PAINT(X,Y),C0,8: GOTOT9B ELSE 980 
980 NEXT 

CO^CQ+i : IF C0>8 THEN C0=6 
irau F$=INKEY$: IF F$=" THEN 1BGN! 
1010 IF F$=CHR$(32) THEN 1020 ELSE 1170 
1020 IF GN-0 THEN GN=1: GOTO1040 
1030 IF SN=1 THEN GN=0 
1040 IF GN=1 THEM CLS: ELSE 1150 
1050 IF L'-P THEN 1100 

1CA0 'important note - THE 1ST THREE OPTIONS TO FOLLOW ARE 
ONLY AVAILABLE WHEN ONLY ONE MOUNTAIN IS RECONSTRUCTED 
70 PS I NT "TO INCREASE HEIGHT/LENGTH RATIO PRESS 'H 1 * 

RESTORE HEIGHT /LENGTH RATIO PRESS 'fl* 1 



ALTEft SURVEY AREA WIDTH PRESS *W 



1 I 
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1100 PRINT-TO RECONSTRUCT ANOTHER MOUNTAIN PRESS 'JT' 

II 10 PfilMT'TO REVIEW PICTURE PAE5S SPACEBAR 1 

1123 PRIMT*T0 PRINT OUT PRESS 'P'" 

1133 PRINT'TO CLEAR SCREEN PRESS "C" 

\m GOTG1080 

1150 PI10DE3i 1 s SCftENl,! 

1160 eOTOiW 

1170 IF L>l TMEM 1240 

1182 T J F' IS THE VERTICAL SCALING FACTOR 

119SI IF F$="H' THEN F=F+.2: 6OTO760 

1290 IF F$= l W B THEN 1210 ELSE 1233 

1219 GOSUBIH 

1220 GOTO750 

1230 IF Ft="R' THEN F=i: SOTO760 

1243 IF Ft='C* THEN PM0DE3, 1 : SCREEN1 1 1 ! PCLSs G>T0IG3i3 

1250 IF F** 9 ti' THEN 1260 ELSE 1313 

1260 FOR M=0 TO A 
I 1278 BtiN;= ,a ! Bt«)=fls C<N)=0: J«N)=0: YiN)=0 

1280 NEXT 

1290 L=L+li CLS: GO3UE120 
13S8 G0T02S3 

1310 IF Ft="F B THEN 1320 ELSE 1410 
1320 E=3 

1330 m m TO A 

1340 IF EX^0 THEN QOSUIITII ELSE EA=Y(N) 

1350 IF N=P THEN PRINTI-2, "M' ;XiN) ? V i-EAs ELSE 

PRINT*-2, WfMNHVHA 
1360 NEXT 

1370 IF Y(A)>Y(0) THEN PRINTt-2, "D';X<0> ;', B HKA)I 

PRI? ! Tt-2 1 *D H ;"Y\03 
1333 IF Y(AKY(0) THEN PRINTfl-2, "D B iX(A)i Vi"Y(E)i 

1390 IF Y<A>=Y(B> THEN PRINT#-2i 'PfXW l 5-YtD> 
1400 IF ZZ=1 AND L^0 THEN E=E+2: ZZ=0: 5QT0133I ELSE 1G0Q 
, 1410 GC'TOieSfl 
1420 1 THIS IS THE HORIZONTAL MEASUREMENT 
1430 B<A}-VAL{Ef(AH 
1440 RETURN 
1450 A=A+l! RETURN 
1460 IF X(N'<0 THEN 5HN)*1 



1470 IF X(K)>255 THEN IW)«299 

143B IF Y<W<« THEN Y(N)=0 

1490 IF Y(N)>191 THEN Y(N)=191 

1500 RETURN 

1510 FOR U=416 TO 510 

1520 PKINT3U,CHR*U43>; 

3530 NEXT 

1540 ' CORRECTION ROUTINE FOR INCORRECT ENTRIES. I BAVN'T 
INCLUDED FACILITY FOR SLOPE CORRECTION. YOU HAD BETTER 
START AGAIN IF YOU H AVE GOT THAT WRONG AS WELL! 

1550 PRINTa320, , TO CHECK OR CORRECT ENTRIES" 

1560 PR INT 3483 1 " PRESS C FOR CORRECT i F FOR FAULTY' J 

1570 HI=*EYE LEVEL" 

1580 FOR N=0 TO A 

im IF m THEN 164S 

16S0 IF Cffl»C(N-U THEN Ht=" RISING' 

1MB IF CWKC(N-l) THEN H*= B FALLING 1 

1620 IF CCNi-C(B) THEN HI= B EYE LEVEL * 

1630 IF C<NJ=C(fM) THEN H*-" LEVEL" 

1640 PRINT3352, r READING" (KM j "HEIGHT" SHI 
lt$=INKEY* i IF THEN 1650 

1660 IF m=* C 1 THEN 1700 

1670 IF ra='F B THEN USS ELSE 1 650 

16BB INPUT" READING" ;B(K) 

U9B PHINT33S3,"i 

17S0 NEXT 

1711 SOT063I 

1720 £D=INT( 190200/ (SC#D)J 
173S PRINTS4Iti "HEI5H" AVAILABLE " 5ED 
1742 PHINT344S, "SURVEY AREA*,!*! 
1750 PRINT 34301 'HEIGHT # ;C«A)»CN? 
1768 IF L=0 THEN PSMs RETURN 
1770 PS=L(L-1}/L{L): RETURN 

17BB 5 THESE LINES ARE CONCERNED WITH SHADED PRINTINGS 

ON THE CGP115 PRINTER 
1790 £A=Y\N)+E: 

1BGN3 IF Y(A)>Y(0) THEN EE=Y(A) ELSE EB=YiB) 
1810 IF EA>EB THEN EA=EB 
1S20 IF EA<EB THEN ZZ=1 
1830 RETURN 



The Gtoss0 lt>ckn«T noimtairt • ft Austria 
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Dragon Answers 



Save/Load 

I write on the subject of save/load 
sequences for the Tandy/Dragon 
machines. I am converting the follow- 
ing code and need to know the same 
for Dragon Basic. 

OPEN '■D , :#1,FJLE$+"/GPH",33 
F0RRUM=1 TO RNUM 
PRINT AMJEST(RUM): 
PUT 3-1, RUM 
NEXT RUM 

PRINT *M,NAME$:PUT/M 
PRINT #-1,B0T$:PUT 
PRINT tf-1,SIDE$:PUT #-1 
CLOSE #-1 

OPEN "D"". m,FILE$+7GPH";33 
FGRRUM=1 TO LOF(1)-3 
GET#1:INPUT JMJEST(RUM} 
NEXT RUM 

GET#1:INPUT #1,NAME$ 
GET#1:liNPUT tfl.BOTS 
GET#1iNPUT USIDES 

Maarten Van Wamelen 

Lynmetestraat 
Betgh 



THESE (wo routines are Simply 
saving an array of numbers, fol- 
lowed by three strings to a serial disc 
file on the CoCo. You can use the 

fallowing DragonDOS routines in 
their place: 




If you've got a technical question write to Brian Cadge, 
Please do not send a SAE as Brian cannot guarantee to 

answer individual inquiries. 



Raves from 
the grave 

DUE to the postal problems in the 
London area we're trather short an 
readers enquiries this month. 
Therefore, I am taking the oppor- 
tunity to reprint a couple of small 
ro u t i n es w h i c h I'm re g u larly asked 



CHEATE FIS+".GPH M 
FWRITE FIS+".GPH ' ;RNUM 
FOR RUM=1 TO RNUM 
FWRITE F IS +" G PIT ;TEST{ R U M) 
NEXT RUM 

FWRITE FIS+ ^PH";NAMES 
FWRITE FI$+".GPIT;BGTS 
FWRITE FIS+ GPH":SIDES 



FREAD Fl$+' . GPH ;RNUM 
FOR RUM=1 TO RNUM 
FREAD FIS+ .GPH' JEST (RUM) 
NEXT I 

FLREAD FI$+ ,l ,GPH 11 ;NAME$ 
FLREAD FIS+ GPH BOTS 
FLREAD FIS+ QPH SIDES 



Empty printer 



I HAVE recently been offered the use 
of a redundant Amstrad PCW 8512 
printer Would rt be possible to adapt 
th is to wo rk wit h my D rag o n 3 2? I f so, 
what type of lead and power source 
do I need' 

Roy Dean 
53 Lutworth Road 
Ecdes 
Manchester 



THE problem with the PCW printer 
is that most of the electronics and 
the power supply are nul in the 
printer itself but in Ihe PCW com- 
puter Therefore it would be very dif- 
ficult to con nect these printers to any 
other computer (and somewhat ex- 
pensive if it's even possible). 
However, one of our readers may 
know otherwise.,.? 



More 
windows 

WITH regard to your Windows pro- 
gram published in the July 1985 issue 
of Dragon User, is it possible to 
modify this to use more windows (eg 
5 to 9) as I find 5 is not enough? 



Spey Walk 
Hotytown 
Lanarkshire 
Scotland 



ITS certainly possible to add more 
windows, but you'll need to re 
assemble the program to do it. First 
of all set up more data areas at the 
end of the code, each 7 bytes long 
(label them WING to WIN10) and in- 
sert them just before the USRLQC 



Next you'll need to change all the 
error checks which assume only five 
windows, ie the lines at addresses 
7CD6 and 7D49 in Ihe listing. Final- 
ly, re assemble the listing and save 



This first routine ongtnalfy ap- 
peared in the March 1984 issue of 
Dragon User. It placed at the begin- 
ning of your program it will disable 
both the LIST and LLIST commands 
•so lhrti, used in conjunction with an 
AUTO RUN routine, your code is pro- 
tected from prying eyes. 

10 CLEAR 200,32620 

20 TS=PEEK(291)*256+PEEK(292) 

30 FOR NO T0 117 

40 POKE 32650+1, PEEK(I+TS) 

50 NEXT I 

60 DISABLE LIST COMMAND 
70 POKE 32650+42,134 
80 POKE 32650+43,22 
90 DISABLE LLIST COMMAND 
100 POKE 32650+58,134 
110 POKE 32650+59,22 
120 FOR 1=0 TO 6: READ AS:P0KE 
32621+1, VALt&H'+AS}:NEXT 
130 DATA 8E,7F,8A.BF,01,23,39 
140 EXEC 32621 
150 REST OF PROGRAM 

THIS second routine originally ap- 

piiariidinthtDecembei I983 issue, 
it provides an ON ERROR RUN facil- 
ity so that if an error occurs the pro- 
gram simply re- runs itself. This is 
u sef uJ for prog rams th at wil I b e ru n by 
non-computer users to whom a "?/0 
ERROR 1 could be quite alarming! it 
can be disabled by POKE 401 ,57 and 
re-enabled by POKE 401.126, 

10 CLEAR 200,32749 

20 FOR 1=1 TO 10:READ AS: 

P0KE 32749+I.VALr&H l +AS): 

NEXT 

30 DATA 32 !2,BD,84 IF,BD,83,ED, 

7E,84,9F 
40 POKE 402.127 POKE 403,238 
50 POKE 401.126 







or 
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Exclusive to Dragon User readers 

Dragon User and Abbott Computer Products have stocks 
of three well known Dragon books which are now no longer 
available from the original publishers. This means that we 
can offer them to readers at much reduced prices while 
stocks last. 





^ Load and Go with your Dragon by John 
Phipps and Trevor Toms. A popular starter s 
collection of programs with educational 



on 



a Wumpus. 128 pages. £1,95 



These hooks have been 
travelling around looking for 
Dragon owners for some time, 
so although they are in 
perfect nick inside, most of 
the covers have a tiny dent, or 
sticker mark, or other small 
token ol life's experience. 
These, like the low prices, are 
all pari of the natural beauty 
of ciit-price books, and do not 
affect their performance 



The Power of the Dragon by John Sharp |» j 
and David Bolton. A guide to programming 

I he Dragon, undertaken through a collec- 
tion of 30 entertaining programs from 
games id VAT calculation. 175 pages, £2.75 



Dragon Magic — Your 
first programming book 
by Richard Wad man. 
This is a programming 
primer, approved as a 
Dragon teaching book 
by Dragon Data, ideal 
for youngsters (or not so 
youngsters) starting 
out. With line and 
colour ill u si rat ions. 56 

pages, £1.50 




The first 450 orders will also 
receive a FREE GAME — 
Bonka is a ladders-and- 
platforms game for the 
Dragon 32. It s not one of the 
great DRAGON classics. It s 
not even new. But it s a great 
way to kill off those idle hall 
hours when you feel like a 
break from reading m pro- 
gramming . . - and it's free. 




postcode . 

and postal order* la Seal Press Ltd (Dragon bool<S| 



Bank account empty? Don't know where the money goes? 
Can't afford an accountant? Or even a lock-up wallet? 

You should have DRAGON HOME ACCOUNTS for the Dragon 32. 

• A 4pp booklet describes the options for storing your monthly household transactions on tape, making 
forward estimates of expenditure and reviewing your budget to date or month by month 

• The accompanying program was originally marketed by Gemini Marketing at £1919. DRAGON 
USER's special offer price is £6.50, INCLUSIVE of postage and packing. The program comes ^s* home 
on cassette only — we regret there is no disc version available, 

• DRAGON HOME ACCOUNTS can handle up to 150 transactions a month of up to 
£10,000 each. The program can display a bar graph plot of monthly expenditure 
on any particular item, and store fixed values for regular monthly ^ address 
outgoings. Information from earlier months stored on separate tapes 



5-nnd rne 
copies 
ol DRAGON 
ACCOUNTS, 
TOTAL 



■ •■r 



NAME 



■ ■ ■ ■ 



led into the program 



RB3S9 make out Cheques or postal order* lo Scot Press Ltd. iHome Accounlsl 



IMPORTANT: When ordering special offer items, you can send your orders for BOOKS and for HOME 
ACCOUNTS to us in the same envelope if you wish, but please make out payments for BOOKS and 
for HOME ACCOUNTS on separate cheques, and send them with the separate coupons provided 
(photocopy coupons are acceptable) This helps us to keep the flow of orders separate, and send the 

goods out more quickly. 

Send your orders to Dragon User at 12/13 Little Newport St., London WC2H 7PR marking 

the envelope DRAGON SPECfAL OFFERS. 



18 Dragon User September 1967 



Every month, Gordon Lee will 



VVi'HH^JFS cl H Cl S ^? If S look at some prize programming 



points from a previous month's competition 



A request for assistance from a number 
readers, in particular from Keith David of 
Crawley, who is having difficulty with his 
cube roots! Well, we all have our problems! 

''Please,'" he writes, ,l can you say 
something about testing for cubes?' 1 

Like many competitors, he had 
discovered that determining if a given 
number is a perfect cube is not as 
straightforward as it might seem at first 
sight. The logical method would be to 
evaluate the cube root and then test this 
number to see if it was a whole number — 
perhaps using a simple routine such as; 
R = NI<Vi): IF R = INT(R) THEN .... , where 
H is the number under test and R its cube 
root. (Note to non-mathematicians; Rais- 
ing a number to a power which is a 
reciprocal is equivalent to finding the ap- 
propriate root of that number) 

Unfortunately, with the Dragon, as with 
most micros, this doesn't always work, 
readers who are interested might like to try 
listing 1, which tests the cubes of the 
numbers from 1 to 999. The program itself 
is quite simple, and yet it just doesn't work! 
Starting with a number N, its cube is found 
by direct multiplications (C). The cube root 
(R) is then calculated using the line 
R=CT( 1 /a). In an ideal world R should, not 
surprisingly, be equal to the original value 
N, and so line 40 should print out a com- 
plete list of the integers from 1 to 999. In 
fact, it succeeds in printing just 119 of these 
numbers — so 880 of the numbers tested 
have resulted in an error being made by the 
computer, 

So what has gone wrong? Take the 
number 1728. the cube of 12. If we type in 
PRINT 1728 T( 1 /a), the result, 12 is printed 
onto the screen, so all would appear well. 
Now try IF 1728T(V 3 )=12 THEN 
PRINTXORRECT". As this results in no 
message being printed, the computer 
clea r ly rega rds th e two va I u es as n o t bei n g 
equal — which we know, mathematically, 
they are. 

To get adue as to what is happening type 
PRINT I728t(va)-12. Instead of the ex- 
pected zero we get the result 
7.4 505 806 E- 09. This strange number, and 
note the E-09 at the end, actually 
represents the value 

0.0000000074505806. What has happen- 
ed is that the computer, due to its method of 
calculation, has evaluated the result as 
12.0000000074505806, and this minor dif- 
ference from 12 exactly has affected the 
result of the test. The reason for this inac- 
curacy isthatthecomputer eva I u ates cu b e 
roots by converting the number to its 
logarithmic value, performing a division, 
and then calculating the inverse log of this 
number. As the computer can only work to 
a finite number of decimal places, and the 
logs involved are irrational and exist to an 
infinite numberof decimals, it is necessary 
torthecomputerto makean approximation 
— which, as we have seen, can result in an 
apparent error. 

So how do we get around this problem? 
One method which has been mentioned 




before in the magazine, is to convert the 
value into a string variable, and then back 
again into a numeric variable, before per- 
forming the test. In listing 1 this would be 
effected by inserting line 35: 

35 R$=STRS(R) R=VAL(R$) 

Unfortunately, although this improves 
the performance of the program, it is still 
not infallible. The success rate rises to 557 
out of 999, so clearly a better method of ap- 
proach is required. 

My solution is given as listing 2. which 
relies on the fact that a straight multiplica- 
tion (as in line 1030} is exact, at least as far 
as a nine-digit product is concerned. The 
method that is used is quite simple: 

i) Find the approximate root 

ii) Reduce it to its integer 

iii) Cube this result and compare with the 
number under test. 



The reason for testing two values at line 
1020 is because sometimes the calcula- 
tion results in a value which is just under 
the correct answer. For example, the cube 
root of 4913, the cube of 17, is assessed as 
being 16.999999. ,, so the extra step is in- 
cluded to cover this eventually. The actual 
test is indicated by setting a flag (FL) to 1 if 
an exact comparison ts made. 

With regards to the competition itself, 
the main difficulty, apart from the one just 
mentioned, was the length of time that 
some starting values needed to run before 
coming up with a perfect cube. In par- 
ticular, a starting value of 19 will not ter- 
minate until a score of 125000 has been 
reached . Several entrants realised that as 
the interval between each successive pair 
of cubes gets progressivly larger, there 
comes a point when a method of speeding 
up the calculation is desirable. For exam- 
ple, a complete circu it of the board , scoring 
210 points, can sometimes be added in one 
operation. 

For an alternative method of solution 
please refer to my own solution on page 6 
of August's issue. 

Finally, a couple of corrections to July's 
Winners and Losers. The numberof possi- 
ble grids is 10 36 — not 1036 as printed — 
no small difference? 1 1 Also the dissection of 
the grid as given towards the end of the 

page should read: 

"...in a 6x6 grid there are 14 six-dtgit 
numbers, 32 five-digit numbers, 54 four- 
digit numbers, 80 three-digit numbers, and 
110 two-digit numbers. This makes a total 
of 290 numbers. Each of these can also be 
read in reverse, making 580 in all, Finally, 
there are 36 single-digit numbers, bringing 
the grand total up to 616." 



Listing 



10 



3 



30 



3 



FOR N=l T 
C:=N*N#N 

IF R=N THEN F : "R I NT 
NEXT N 



Listing 2 



OOO 



INPUT 7 
1010 R=VTa/3> 

FL=Os FOR F= 1 NT C R > TO 1 NT ( R+ 1 > 
IF F*F*F~V THEN FL=1 
1040 NEXT F 

IF FL-1 THEN PRINT "CUBE" 

"NON-CUBE" 



020 
1030 



ELSE PRINT 
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Down in the dumps 

Dragon User presents another selection of screen dumps from readers 



Epson FX-80 

The following routine pokes in 219 bits of 
data and when executed looks at the 
screen in an X Y format to print out the con- 
tents of the screen. Attached to the end of 
the program is a samplu listing numbers 
from 1000 on. The normal procedure for 
saving machine code programs should be 
used after proving the procedure works. 

AR. Butter field 



LISTING I 

10 CLEAR 200.iH?CFF 
20 K4H7E00 

I 30 HEAD II 

40 IF 30327*7 OR K<fcK7CFF THEN STOP 
30 IF It«'ir THEN SO 
49 POKE X,VAL('&H a *if] 

70 W*l:60TO 30 
80 Y=tH7F0O 
90 READ II 

(00 IF 1)327*7 Oft IOH7CFF THEN 3TQP 
HO IF IWll- THEN 140 
120 POKE If, VAl CUT*!!] 
t30 V»Y* I : 60fi M 
MO GOTO LOCO 

150 MTA34 l 36 l BE 1 lD l E0,l0,flE l 7D 1 O0 1 l0,BF 1 7F,E3JB t 7F 1 00 1 C6 1 C0 l l0 l BE 
I 1*0 BATA7D,00,F7,7f ( El,A* t 84,43,BO t 7F f 2* ) BD,a0,0F ( a*,0O,lD i aO P OF ( 30 
170 BflTA8e 1 £0 1 7A,7F,EI 1 Ffi 1 7F 1 £l,Cl 1 fr0,2t,E5 1 86,0D,BD l 80 1 OF,l0 l OE,7D 

1B0 DA7A0Q , 10 , BF , 7F S E1,M ,7F t 4F,30>B < ? , 18 ,01 ,8.C, 16,00,26 ,C0 t 33 t 3*i 3*7 
HO DATAII,8*,JB,BD,9O,0f,at,4i,BO,8O,0F i ai 1 O7 1 BD,e0,OF l BA t ll f BD r 80 



200 DflTA0f.Bi.«,BD,B0 1 *F,86,e0,BD,B0,0F,B6 t 01 1 BD,B0 i 0F,39, 12,12,12 
210 MT«F,46,S6 1 56,4* t 5* 1 56 l 4* l 5fi t 5fi 1 46 t S4,E7,A4,7C,7F,E4,10,BE,7F 
220 &ATAE3,5F 1 46 t 56,5*,46 1: 56,5*,U i S*.3* p 44,34,F7,7F,E2,Bfi,7F,E2,39 
230 0ATA[2 P |2,BO.7F 1 OO,C4,CO,F7 I 7F I El,fti,A4,12,BD,B0 1 OF,86,00 i BD,80 
240 DATA &F,31,AB,0l t 7A,7F < EI 1 F* t 7F 1 E] 1 Cl,0O,24,E8,8fr,0D,SD,80,OF,3T 
250 DATA *W 

tooo nm,si*attffcPMf4 

::io N-2!Pl s 4rtTmi) 

1C20 yO=BO/N/*l 

1030 DRAM " BH 1 4 * STR* \ INT f 1 06 - ¥0*2 ) I 
1040 FOR 1.-0 TO 255 STEP 2 
1050 TMB6-7Q-Y0iC0S1N»2*P[«][/253J 
1040 LIHE-CMI,PSET 

1070 XT«I+2#¥0*W*PX*¥/255*a EN tN*2*Pl*JC/235» 

1080 n=0;IF TT<0 THEN XT"0fYZ=Vt255*!l/ l2tN*PI*Y0tStN(Nt2*PI*^255h 

1090 IF HT>235 THEN HT*235}Vl-(2SH>iaW2*N«P]iV0#SINll!t2iPI«/2S5l) 

2000 LME-UT.vn, PRESET 

2010 M^"Wn|TR*<lh , ,'+gTRf(INTilfn 

2020 NEJT 

2030 ElECiHTEOO 
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Tandy Color Graphic 
Printer 

This program is a screen dump for the 
Tandy Color Graphic Printer, though it may 
wo rk o n othe r p r i nte r/plotte rs, Itu ses al I fou r 
colours and dumps sideways on the paper, 
in order to give the largest size. Any colour 
that is not available on the printer is shown 
as white. The dump is not solid colour, but 
made up of a series of minute squares, so 
saving ink in the pens. If your machine can 
take it then it is advisable to use the speed 
poke (POKE 65495,0) (Remember you have 
been warned against using the speed poke 
— Ed.}. Even so while the screen is being 
dumped, it is advisable to leave it and do 
something else. A whole screen can take 
around 40 minutes, depending on the 
number of colour changes. 

J.F.Singteton 

10 REM CCJ J ,F. SINGLETON 
20 REri JOHN TO tfY FRIENDS 
30 CLS 

40 iNPUT "SWITCH PRINTER CN THEN ENTER" I 



ENTRY, DO AGAIN" =G0T0 190 

130 IF T#<0 OR T*>256 THEN PRINT " INUOLI 

P TOP CO-ORPlNfiTES, DO AGAIN": ROTO 13 



140 IF TY<0 OR TT>i32 THEN PRINT "INUftLJ 
D TCIP CO-ORDINATES, DO AGAIN" :G010 19 



J 50 IK BX<0 OR HX> 256THEN PRINT "USUAL ID 
BOTTOM CO-ORDINATES, DO BGfYl N' 1 : GOTO 1 90 
tm IF RY<6 OR BY>132 THEN PRINT "INUALI 
D BOTTOM CO-ORDINATES, DO AGAIN ' :GOTO iS 



170 IF CS<0 OR CS>1 THEN PRINT " INUALID 

COLOUR SET » DO AGAIN" : GO TO 190 

1S0 IF CS=1 AND PM=1 OR THEN PRINT 



"YOUR DUMP WILL BE ALL WHITE, USEA EttFFH 
RENT COLOUR SET'^GOTC J3f) 



50 PRINTtt-2, CHR*C18J 

60 INPUT "UHAT PnODE IS THE PICTURE 

Pfl 

70 INPUT 
80 INPUT 
30 INPUT 
TOBE DUMPED CX, 



ii . 



;ph 

cs 



^JHAT PAGE IS THE Pi CURE CN" 
UHAT COULOUR SET IS IT IN"; 
T CO-ORDINATES OF 
Yi'ViTX, T v 

im INPUT "80 T TOn RIGHT CO-ORDINATES OF 

AREA TO BE DUMPED CX,TJ"JBX,BY 
110 IF PfKi OR PM>4 THEN PRINT "JNUALjD 
ENTRY, DO AGA J N' r ' GOTO 190 
120 IF PA<J OR PA>3 THEN PRINT "INUALID 



1S0 


SOUND S0,5 3FOR J =] 


TO 


100 


0 :NLX^ 


:RU 


200 


PflODE PM, PA: SCREEN 1 


,CS 






210 


HE=3*CBY-TYJ 










22ti 


PRiNTtt-2, "R0, -" ;HE 










230 


PRINT4-2, "1" 










240 


f OR Y-T Y TO BY 










2£50 


FOR X=TX TO BX 










260 


A=PP01NT CX,YJ 










270 


IF A=0 THEN PRJNT4*- 


2, " 


C0" 


SSOTO 


328 


280 


1F A=l THEN FRINT#- 


2* " 


f" 2 " 


■ UU | I J 


^20 


23ti 


JF A=3 THEN PRINT*- 


■■— i |i 
^ J 


C J " 


3GG[I 


320 


:<m 


IF A=4 THEN PRINT tt 


-2, 


"C3 


J1 iGOTO 


320 




GOTO 370 










320 


PRlNT«-2, "42,8,0,2, 


-2, 








330 


NEXT X 










340 


PRINTK-2, "H,R2,0- 










350 


PRlNTtt-2, "I" 










360 


NEXT Y : E ND 










380 


rRINTtt-2, "P0, 7" 

LiiSiL,: 330 











Tandy CGP-115 

This *s a two colour screen dump for the 
Tandy CGP-115 printer. In the first part the 
foreground oclou r and colour set are defin- 
ed by the user, in addition to this is user is 
able to choose the colour of the hardcopy. 

The main part is from line 170 onwards. 
These linesset the printer (©graphics mode 
and select the drawing colour. As the printer 
paper is not wide enough to allow a double 
size screen dump the normal way, line 250 
changes the X co-ordinate so the picture is 
drawn vertically down the paper. The 
screen dump enclosed took just over 2 
hours. 



120 INPUT "ENTER CHOICE" ;HC 

L3P IF HC<0 CR HO 3 ] HEN 100 

140 CLS: INPUT '"LOAD PICTURE FROM TAPE C. v 

✓ NJ" im 

15^ IF p£="^" THEN PRINT " INSERT CflSSEI T 
t, PRESS PLAY": INPUT "ENTER PICTURE TITL 

I T I* =SCREEN l,SC:CLOADn TJ$ 
160 SCREEN 1 , SC 
l?& PRINT «'2 1 CHR*C1?J 
180 PRINT «-2,CHR*CliJ 
130 PRINT U-2, "I " 
200 PRINT tt-2, "D" jhC 
210 FOR Y-e TO 131 



22B fOR X 



i; 



2 j j 



220 F=PP01|NTCX, YJ 



10 'CO TtQ/ZsSy P. HARLGU 
20 RHODE 4 , 1 
30 CLS 

40 PRINT TAB( I) V CGP-115 JUO COLOUR SCRE 
EN OUnF" 

50 PRINT T fIB [ 1 J jSTR JNG* (30, " = " J 
60 PRINT :FRIN1 

70 INPUT "WHICH FOREGROUND COLOUR C0'1'5 

r- 3FC 

if FCO0 f*ND FCOl FiNf FC<>5 THEh 30 
INPUT "VhMICH SCREEN C0^n M f§C 
100 PRINTS25G, "CHOOSE HARDCOPY COLOUR 14 
110 PRINT "0:- PLflCK" :PRINT'-1 BLUE'^PR 
INT "2 "IRE EN" -PR I NT "3 :- R£D" 



24£ IF POFC THEN 2£0 
250 U=CX*-2)+5l0 
260 PRINT JJ-2, "fl" 3 Y*2 ; " 
270 PRINT ±t-2, " J2,0 3 0, - 
280 NEXT 

230 PRINT »-2, "A" 3 END 
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Write 






Peter Gerrard in a world of describable adventure! 



NOW that our adventure program has 
reached the stage where it can interpret 
sentences typed in by the player, or at least 
break those sentences down into a succes- 
sion of words and numbers that the pro- 
gram itself can use. we reach the point 
where we have to supply a vocabulary. In 
other words, we need to give the program a 
list of all the words thai it is going to use and 
understand. By that I don't mean words like 
'the', 'and 1 , 'it', or whatever, but those words 
that will enable a player to solve the game. 

Such words as 'look', 'examine; 'open', 
and so on, should be common to every 
adventure, and in time to come we'll be pro- 
gramming those into our adventure's 
vocabulary. For now we need to concen- 
trate on the ones that serve to distinguish 
one game from another, those that are par- 
ticular to each individual program, and in 
ord er to d o th at we need to loo K ve ry c I osely 
at our location descriptions 

Later on we'll be looking at ways of com- 
pressing the text so that we can get in as 
much detail as possible, but since the long 
description have to be typed in at some 
point anyway, we'll start from there. 




Sample Descriptions 

Take the following, which comes from an 
adventure Of mine. All you need to know is 
that you've been exploring an old mine, 
an d yo u a re app rox imately half way d own a 
decaying mine shaft: the outside world is 
still visible, since you are not yet that far 
underground. It goes something like this: 

Up above you can make out the exit from 
the shaft, with a couple of stars twinkling as 
clouds scud by acrosss your fine of vision. 



Further down, the shaft disappears into an 
inky blackness. Any stones that you 
dislodge fall for quite some time before 
hitting the bottom with a quiet crash. If you 
fell, you would probably make a slightly 
louder noise. 

This is what we might term an 'interim' 
description, since there is nothing here for 
the player to do other than to go on or 
retreat. Nevertheless, these descriptions 
are important, and help considerably in ad- 
ding to t he f I avo u r of t h e game. It i s n't ever y 
location that can have a problem to solve, 
and no game should real ly be like that: you 
need to give the player some sense of pro- 
gress as he overcomes a particularly dif- 
ficult section. After spending day upon day 
struggling over something, it is very 
disheartening to move one location fu rther 
on and be brought to a halt yet again? 

In the above description the player is told 
everything that he needs to know, but it 
does go slightly beyond the you are in an 
old mine shaft' type of thing that featured 
(and sadly still does feature) in many a 
game. In the latter there is no sense of at- 
mosphere whatsoever, you are simply 
solving a set of problems rather than ex- 
ploring a brave new world. However, by us- 
ing just a few words more than normal (and 
if we're going to compress things this 
doesn't make life any more difficult) we can 
give the player the true feeling of being 



The line about If you fell, you would pro- 
bably make a slightly louder noise' tells the 
player all he needs to know about the depth 
of the mines haft (albeit in a humurouskind 
of way) without going oft into reams and 
reams of purple prose 1 , as people are fond 
of calling that sort of thing. Little details like 
the stars overhead, the clouds scudding 
by, all add to the description and the atmo- 
sphere produced by it. The player can 
really begin to imagine that he's there, 
rather that sifting in front of a computer 
solving logic problems. 

Humour 

Personally I think that humour is essential 
to an adventure game, provided that it isn't 
overdone, Of course, some games rely 
almost totally on humour and a penchant 
for terrible puns (' You are looking at a field of 
lambs. You feet sorry for them , knowing tha t 
in a couple of months time they're going to 
be taken away and slaughtered. They have 
gambolled and lost' sort of descriptions), 
although I can't pretend to be over keen on 
games like that (despite, as anyone will tell 
you, a liking for the pu n!) , But a little dab of 
humour here and there never goes amiss. 

And, like certain comedians, it is possi- 
ble to be humourous without resorting to 
foul la rig i j age, which some adventures 
regrettably do. There is no excuse for that 
sort of thing. By all means have "swear 



word' detector built into your parser, 
because if people like to type that sort of 
thing then they will do, and you can t print 
out anything that is coarse or crude. You 
never know who might be playing the 



So with all that in mind, and sticking to 
uncompressed room descriptions for now, 
let us get our player moving around in his 
adventure world. 




Player movement 

First of a 1 1 , yo u n e e d the room d esc ri ptions. 
For now, if you haven't got 64 such descrip- 
tions lying handily around, or you can't be 
bothered typing them all in, we can use a 
simple 'YOU ARE IN ROOM NUMBER' 
message, which at least will tell us that we 
are managing to move the player from one 
place to another, provided of course that 
we follow the message with the room 
number itself. 

However, the way in which we could do 
that (44 PRINT YOU ARE IN ROOM 
IMUMBER'CP for example, where CP gives 
us the player's current position) is marked- 
ly different for the player to read (44 ON CP 

GOTO etc, where the dots would be 

replaced by line numbers indicating which 
line contains which room description, is 
just one way of doing it), so do leave a nice 
wodge of code free so that we can later put 
the room description in there. 

But the problem is, how do we get a value 
for CP? Like this, dear reader. 

Let us assume that the player is going to 
start the game at location number one. At 
the start of our program, then, we would 
have a line declaring CP to be equal to 1. 
Then, we could have a group of lines like 
the following (this is also assuming that 
you're using the parser from an earlier col- 
umn, although that's up to you of course!): 
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6VB$(5)="N":VB$(6) = "S ,f ;VBS(7) = 

l E":VB$(8) = "W" 
1001 IF VB>5 AND VB< 10 THEN 1050 

1050 IF(VB=6 OR VB=8) AND CP{64 
THENCP = CP + 1:GOTO44 

1051 IF(VB=SOR VB=7)ANDCP)0 
THEN CP = CP-1:GOTO 44 

1052 PRINT "YOU CANT GO THAT 
WAY;: GOTO 44 

These are just being used as examples, 
and don't have to be followed slavishly. 

From the above, you can see that we've 
defined four verbs to be equal to the four 
compass points N, S, E and W. You might 
like to include VB$(1)= "NORTH" 
VB$(2)= "SOUTH' 1 , and so on, to give the 
player the option of typing either 'rT or 
'north' when he wants to move in that direc- 
tion. Then, line 1001 checks to see if the 
verb typed by the player corresponds to 
on e of th ese m ove me nt ve r bs , and i f it does 
then go to line 1050. Change the VB>6 to a 
VB}0 it you've added the longer versions 
of the words. 

Now, lines 1050 to 1052 are most 
definitely NOT the sort of thing you'd want 
to include in your adventure! But, as a 
starting point, it will let you check all your 
descriptions. Here, if the player has typed 
in verb 6 or verb 8 (ie he wants to go south 
o r west) and th e c u rre nt loc a t i on n u m be r i s 
less than 64 (this assumes a 64 location 
adventure) then increases i! by one and go 
back to line 44 where we could print up 
either our YOU ARE IN ROOM NUMBER 
CP message, or go off to the line that prints 
up the CPth room description. Similarly, if 



the player has typed in verb 7 or 9 (ie he 
wants to go north or east) and the current 
location number is greater than zero then 
decrease it by one and go back to line 44 

again. Finally, if none of these conditions 
are true then tell the player that he can t 
move anywhere. 

This, as I said, is only useful in allowing 
you to check your room descriptions, since 
we donl want players moving happily 
throughout the entire game without a care 
in the world or a problem to solve. So, we 
must have some way of controlling move- 
ment and getting the player going in the 
right direction, 

If we define an array P D /o(64,4), we can 
achieve this control. Suppose that from 
location 1 the player could go north to 
nowhere, east to location 2, west to loca- 
tion 3 and south to location 4. Highly im- 
probable, but it will do as an example. We 
could then define P°/b(64,l) to equal zero, 
P%(64 1 2) to equal 4, P%(64,3) to equal 2 
ancTP%(64,4) to equal 3, In other words, we 
use the four elements of the array to 
represent the movement directions north, 
south, eastand west: theorder in which the 
verbs were originally typed in, if you recall. 
Thus P%(CRMO) would give us the 
location that a player would end up in if he 
were to move in the MO direction from loca- 
tion CP. 

It's easierto see by example : 

1050 VB=VB-5:IF P°/o(CPVB)< >0 THEN 
CP = P°/d(CPVB):GOTO 44 

1051 PRINT "YOU CAN'T GO THAT 
WAY/-:GOTO 44 



The value of VB lies in the range 6 to 9, 
although if you were also using the values 
1 to 4 you'd have to do another check. All 
we want to end up with is a number in the 
range 1 to 4, representing north, south, 
east and west respectively. Then, if 
P°/o(CRVBj is not equal to zero, that's 
where the player is going to end up. So we 
put him there by declaring the new value of 
CP to be equal to P%(CRVB) and go to line 
44 to inform the player of where he's got to. 

If t he value of P % (C RV B ) I S e q u al to ze ro 
then there is no movement allowed in that 
direction (over a cliff, or into a bottomless 
chasm, perhaps) so again we tell the 
player so and go off to line 44 again. 

This sort of thing could easily be extend- 
ed to cover some of the more usual pro- 
blems That are encountered in an adven- 
ture. For example, the need to carry a torch 
in certain locations, say locations 40 to 51. 
If the torch was being carried we could 
have a flag TC set, and by altering the lines 
a little we could have something li ke: 

1050 VB=VB-5 IF {CP>39 AND CP<52) 
AND TC=0 THEN PRINT "ONE MOVE 
AND YOU'LL FALL INTO A PIT": GOTO 44 
and have the rest of the routine do the 
check for movement allowed or not allow- 
ed as the case may be 

Conclusion 

By this straightforward use of an array we 
can effectively control the movement of the 
player through our adventure, as well as 
setting up checks for torches or anything 
else you might care to include. 
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I'D like to start off ihis month's Adventure 
Trail wit) a promise and an apology. First of 
all. I promise not to mention any sporting 
even I ever again (unless it involves Wig an 
and they've won!). The time lag between 
my writing this and your reading it is such 
that anything I mention is lost in the mists of 
antiquity by the time it reaches you, and 
I've received a mild reprimand from a per- 
son who shall remain nameless but knows 
who he is because he asked my brother 
Mike to pass the message on (hello there!) 
to the effect that he didn't have the faintest 
idea what I was on about, Many people say 
this, but the fewer the better and so no 
more sports- 

Secondly, apologies to anyone who 
hasn't yet received the solution to an 
adventure. I'll be with you as sooonas lean 
(ie when I've finished this column). Sorry, 
folks. 

But enough of this taradiddle, pass 
those waffles and let s get on to the trail ot 
the Dragon, 

Sad News 

WeGerrards seem to have the power of life 
and death over magazines, No sooner do 
we mention one and it disappears forever. 
Insight bites the dust, so bad luck to Ron 
Dawson , and after afleeling appearance in 
last months column softas Adventure Con- 
tact This is even worst than usual because 
it was produced in Wigan so commisera- 
tions to Pat Win stan ley. However, its sister 
magazine. Adventure Probe, is alive and 
well for the next three and a half years at 
least (or so I'm told), Sandra Sharkey, the 
editor, when not beating me at pool would 
love to hear from you at 78 Merton Road, 
Wigan, Lancashire WN3 6AT. 

Better News 

A letter from Joe Brincat is always good 
news, since this man has solved more 
Dragon adventures than have been 
written. With Joe being from Malta we get 
an international flavour to the column (and 
more to come, with Gibraltar lurking in the 
wings), so let s help my stamp collection 
and keep 'em coming. 

In July issue of Dragon User the Expert 
printed Joe's map of Total Eclipse, but 
neglected to include the key to the map. So. 
ever one to make amends, you'll find it 



attached somewhere to this column. 
(Hhhmmph. No you won't. I don't know if 
you're going blind or I'm going mad, but 
there's a perfectly good key in the top left 
hand corner of mine. Granted it's a bit faint 
tf we get six more letters, and we can find 
the original, we'll run the key again 
sometime. — Ed.) 

Now completing this mammoth game is 
an incredible feat of adventuring, but alas 
there be si ill problems, There is, for exam- 
ple, the abandoned craft, which nobody 
seems to have found. Salvage and Invest 
wont work, so on behalf of adventures 
everywhere, HELP! the producers ot the 
game, Fenmar, are as elusive as the 
abandoned craft, so if anyone can help 
me and Joe please write in. Joe's address 
is 73 Annunciation Street, Hamrun., Malta 
28-06-87, and he ll be happy to help anyone 
with Total Eclipse (apart from, the above 
problems, of course). Also, at the com- 
pletion of Universe 1 the following words 
appear on the screen: 

"Well done commander you have com- 
pleted Universe 01. Place Universe tape 2 
in player —prepare tape player — prepare 
tape player — press Enter when ready 1 ' 

Where is Universe 2, this is the question, 
To quote Joe's letter "I will pay its value to 
whoever sends it (to me) first and when one 
day Tve finished mapping it, he will be the 
first one to get the map". Okay you lot, now 
there's an offer you can't refuse. Incident- 
ally, Joe's version of Total Eclipse was 1,3, 
so perhaps any later ones have a more 
easily found abandoned craft. Hopefully 

we shall see. 

Staying in this universe for a while, 
Donald Morrison is having problems with 
Syzygy. sayi ng that when he enters the co- 
ordinates for the planet he gets trans- 
ported into space. Well, are you entering 
the correct co-ordi nates 7 These are 
0-4-1-5, so enter that number then PRESS 
LEVER and he ho and away you go. 

Going onto parallel universes we arrive 
at Hemel Hempstead and Graham Bu rton , 
who imparts some words of wisdom con- 
cerning Operation Sapras, And 1 quote "To 
find antidote go south, east, east, east, 
then west m the 'green and brown 1 ; Ron 
Tripp is of further use when you find him: 
book stalls can be useful: lake note of what 
the man in Aberdeen says". It must mean 
something! Of course it does. 

Alas, Graham is not on a par with the 



Pope, and does make the odd mistake. Like 
erasing two of the machine code routines 
on The Ring of Darkness, thus making it im- 
possible to solve. Ah well. Problems with 
Vertex Factor as well, so let me tell you what 
the hair pin is not for picking the lock of the 
north door, you mustenter the hole, NOT go 
north, andthenusethe hairpin. As far as I 
can tell the aquarium is not essential to 
completing the game, so if I were you I'd 
make for that hole and continue from there: 
you'll find at least two more treasures by 
looking at the chest that you'll find there. 

A plea for help Irom Neil Davies. Of 4 
Grinshill Drive, Crowmoor, Shrewsbury. 
Shropshire, SY2 5JE He's completed 
Trekboer, Sea Quest. Calixto Island, 
Jerusalem Adventure, Ultimate Adventure. 
Shenanigans and Syzygy and will help 
anyone who sends him an SAE. However, 
he also wants to know if there's anyone in 
the Shrewsbury area willing to swap 
g a m e s. Okay S h r ews bury folk, get writing. 

All right, all right, Gibraltar here we 
come. Andrew Powell, 1 Old Naval Hos- 
pital, Gibraltar, to be precise, sends a letter 
that's a curious mix of grovel and thinly 
veiled threat. Grovel in the form of worship 
(this is the stuff) and threat in the message 
that if I don't help him out he'll send the 
boys round. Why does no-one wever send 
the girls round, that's what I want to know 
(cue several thousand letters of com* 
plaint!). Anyway, the lad is stuck on Return 
of the Ring. He's not the only one, so if 
anyone has a solution, Andrew and I would 
be pleased to see it. So would Graham 
Burke and a few others as well. 

Having cunningly worked Graham 
Burke into the conversation, he is having a 
problem or three with Juxtaposition, and 
reasonably near the start as well, Pity on 
the lad, so making sure you've got ever- 
thing before you get there (like blue key 
card, sleeping pills and anything else you 
might find lying around after short- 
circuiting the droid) go lo i he monorail plat- 
form (and don't go into end less rez zones), 
wait for the car and board ii when the doors 
open. Get the camera from the photo 
gallery (only take food from the dinner 
d roid w h e n you n eed to e at ) . G o to t he ante- 
room and put sleeping pills in the 
caretaker's coffee. Gel the white key card 
and cup from caretaker and unlock the 
door. Get the breather mask, sticky tape 
and soldering iron, go back to the street 
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area and sort the rest out for yourself! 
That's more than enough to get you well in- 
to the game, I think. 

Moving rapidly onto Ipswich, where Nick 
Webb is a man lost without matches in 
Black Sanctum. Well, me old son, try ex- 
amining the mantlepiece in the cabin, and 
loand behold, got a light, boy? No, but I've 
got a heavy woman. 

Despite everything, despite hints and 
t i ps in various columns, I am getting just as 
many letters about this game as ever, 
whihc means either that people are new to 
the column, or they don't read it, or they've 
just acquired the game. In order to stop 
droves of you sending in requests for hint 
sheets, my postman suffering heart failure 
and my printer ribbon being worn to a ... 
well, whatever it is that printer ribbons get 
worn to, here is the COMPLETE SOLU- 
TION to Aquanaut 471. Don't read it if you 
don't want to know. It's presented in the 
order in which you need to do things, and 
comes courtesy of Michael Edwards of 
Broomsoft. Here goes... 

1) From the very start, go D. E, N, E, S, E t 
N,N,D,E f D,Q 

2) Play the (expletive deleted) bubbles 
game. 

3} Find the memory GRID and the 
MIRROR. 



4) GO POSTER in the storage room (the 
mirror protects you against the lasers), 

5) FIX COMPUTER WITH GRID then 
RUN COMPUTER. 

6) Take plastic CARD. Go W, N, E. Take 
the BLASTER. Go W, S, E. Tell Huey-12 to 
FOLLOW ME. Go S, E. Drop the MIRROR, 

7) Go to the force field with Huey (if he 
stops following you find hi m and tell him to 
follow you again and tell him to GO NORTH 
through it Go N, W, S. Take the 
FLASHLIGHT. Tell Huey to follow you, 

8) Go to the tool chest. Open it and look 
at it twice. Take both items that you find 
there. 

9) Go to the sliding door. OPEN DOOR 
WITH CARD then GO DOOR. OPEN BOX 
WITH CROWBAR. Look twice, drop the 
crowbar and take the AIR HELMET. 

10 Go to the (expletive deleted) robot 
game. Go N r D. LIGHT the FLASHLIGHT 
then N, D (past more robots), OPEN DOOR 
WITH CARD then U, S, U. UNLIGHT 
FLASHLIGHT then DROP CARD. 

11) Find Huey and go to the hatch. Open 
hatch, tell Huey to follow you (he MUST 
keep following you) then GO HATCH. 

12) Find the mutant. SHOOT him then 
drop the BLASTER. Go W. Find the box 
cavern and take the seaweed with the plant 
cutters. Drop the cutters then find the 



caves, and remember Huey must be 
following you. 

13) Gc n the caves. Light the flashlight 
go S, E t E, N, W, Take the 

MUSHROOM and go U. Unlight the 
flashlight. Find the module and tell huey to 
LIFT MODULE. 

14) Take the module. Combine the 
SEAWEED with the MUSHROOM !o make 
eradiation pill. 

15) Return (you don't need Huey now) 
to the base, remembering to UNLIGHT 
FLASHLIGHT when you don't need it. 

16) Go past the security robots, N. 
D,LIGHT FLASHLIGHT IM, D. EAT the 
PILL. GO DOOR then FIX REACTOR 
WITH MODULE. Return to the poster 

room, get mirror, go to the poster N. 

PRESS BUTTON and END!!!?!!! 

Huey-14's message is: 

To save the director you must: 

1) Make a radiation vaccine. 

2) Fix the reactor. 

3) Press the button. 

Signed ... Huey-14 

Right, me again. No more letlers about 
Aquanaut 47J, okay chaps and chap- 
esses?! See you next month. 
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PYRADVENTURE- AMENO- 
PH IS III. Enter the Lost Tomb of 
King Tutankhamen's Father and 
travel back in time 3000 years in 
this thrilling adventure game. 
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P&P to: 23 Ashby Road, Thun 
ton, Norwich NR14 6AX. 
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DRAGON 64 DragonDos, 
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necessary. All worth about 
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WANTED Working disc-drive 
and controller in the Notting- 
ham/Derby area. Tel: (0623) 
792226, 



PROLOG interpreter for OS9. 
Full-feature Sth-generation 
language, with 100-page 
manual and utility module. 
£29,95 from METASOFT, 4 
Pinehurst Walk, Orpington, 
Kent BRG 8DD. 



LARKSPUR Graphic Adven- 
ture Trilogy. Parts 1 and 
available now. £2. Tel: ( 
774485. 



DRAGON 32. + joysticks, 
books £45 ono. Tel: 061 861 
8456 (evenings). 



DRAGON 3 2 for sale In original 
conditions with box and 
manual, Tel: (0935) 75319. 



SUPEHDOS disc drive con- 
troller kit (excluding case) £55; 
tested, working Dragon 32 {no 
lid) £38; untested, complete, 
could be working! £35; Most 
Dragon spares inc. 74LS783 - 
£10,25, 6809E, 41464, 
transformers, CPUs, PSLTPCB. 
Phone for details - Nick Spiers. 
Tel: (0892) 44070 (evenings). 



LOW COST Dragon Disc 
Systems (Drive and Interface) 
from £130 For a 3W, 250Kb 
system (plus VAT and postage) . 
Also 5Y4" and 40/80 Track 
Drives, and Printers. Send a 
long S.A.E.to: DATASPAN LTD., 
10 Pine Drive, Hawley, 
Camber ley, Surrey. Tel: 
31507. 
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Odd One Out 

When Gordon Lee gets going, he goes one and one and one 



QUESTION: Which of the following is the 
odd man out? 



7, 15, 23, 29, 32, 44, 50, 67. 



Answer: No. 44, 'cos its the only one that 
includes fried rice!! 

End of mathematical joke and on to 
some larger numbers! 

Consider that series of numbers which 
are made up of the same digit repealed a 
specified number of times. These are 
known as 'monodigif numbers, and par- 
ticular, much interest has been shown in 
repetitions of the digit '1' — the term 
repunit 1 being used to describe numbers 
of this type, and it will be these that we will 
be examining here. 

For convenience, we can use a type of 
algebraic shorthand to refer to these 
numbers, using the form Ry, where y 
denotes the number of ones present. So, 
for example, R 2 will denote 11 r and R 17 indi- 
cates 11111111111111111. 

The main interest in these numbers has 
been in determining their factors, and in 
particular discovering which of the senes 
is prime. R ? is obviously prime, but the 
next prime number in the series is not 
reached until R ig , The intervening num- 
bers are all composite, but establishing 
their factors is not at all easy. For example, 
even the modest R 17 already mentioned 
above, has only two factors; 2071723 and 
5363222357 — and if you don't believe it, 
just multiply them and see! The only other 
reasonable tow repunit which is known to 
be prime is R 23 > after which R gi7 is the only 
prime for values less than R 10O0 . 
Enigmatically, there are large gaps in the 
knowledge about these numbers. Most of 
the series have been proved to be com- 
posite although in many cases the factors 
themselves have not been established. 

An associated problem involving 
repunits 



Take any prime n u mber p. and f i nd a value 
v, such that the product of p times v is com- 
prised only of ones. As a simple example, 
the prime 3 when multiplied by 37 will result 



in 111. Clearly, this is impossible for the two 
primes 2 and 5 (can you see why), but of the 
rest such a value exists for v, although this 
number may be exceedingly large! 



The table shows the factors required 
primes (except 2 and 5} under 100. The 
number in column y indicates the number 
of ones in the final product — iethe value of 
y in the formula Ry. Of particular interest 
are those primes marked with an asterisk. 
With these, the value of y is one less than 
the prime itself. Mathematically, for this to 
happen, 10 has to be primitive root of the 
prime in question. These numbers turns 
up in a different guise if we were to evaluate 
the reciprocals of primes. Except for 2 and 
5, all primes have reciprocals with digits 
which repeat in cycles. 

For example, 1/7 = 0.142857 and so 

on to infinity. This cycle of six digits is 
reflected in the y column of the table, 
where, except for the prime 3, the column 
indicates the number of digits in each 
cycle: 

1/11 = 0.09 09 09 09 09..., 
1/13 = 0,076923 076923,.,. 
1/17 = 0.0588235294117647 



ana so on. 

The competition question this month is 
concerned with the prime 34543. What we 
want to know is the smallest number by 
which we can multiply 34543 in order to ob- 
tain a product consisting entirely of ones. 
Now r as 10 is a primitive root of 34543 this 
product will contain 34542 ones, and con- 
sequently the number that we are after will 
be almost as large. So all that we need is 
the ten digit sequence which occurs at 
position twenty-thousand and one to 
twenty-thousand and ten. 

Remember, the number itself has 34537 
digits — commencing with 3216602817 
and wnding with 9772779177. 



3216602817... - (??????????)., 

.9772779177 



• i » 



Can you supply the missing digits? 



Prime 


Y 


3 


3 


* 1 


i 


11 


2 


13 


« 


* 17 


16 


* 19 


IB 


* 23 


22 


* 29 


2S 


11 


IS 




J 


11 


s 


43 


21 




Ak 


S3 


13 


* *>* 


!>H 


* 61 


to 


67 




> 1 


3 b 


73 


i 


79 


L J 


63 


41 


B<* 


44 


*" 97 


96 



c-nTipieinpntsry Factor; 

IT 

1587 3 
1 

&541 

^94795 3 216 374 269 

4 6 30*17*743961 3 52657 

3831 4176245 2107 2 7*69 3 4 8659 

353 4? 29 3906*1 

3 

271 

25.639793281^37467"? 

2 36 4QG€ 19 Jfl 534 2799 59 Bl 08 7 4704 49172 676(32151 J 
20964360587 

lflfl 3239171 3 7476 45J51Q 357(11 544 2561 20527 30696 79949 34 

-066629 

18 2149 36247 72313296903 4608 316670673952641165755919 
-B542B051 

1658 37 479 270 31 509121061359 »673 3 
1S649 4 52 269170579O297 33959 31142 41 



14064697609 

1 3396 ft BOA 5676037 4 0 3266 3999 29049 5314 5917 

1248 4 3945068 6 64169 79776529 3383 270911360 79 9 

11 454 7537 2279 495990836 19702:176 403207 33104 238259977 

-434 13516609 39 289A05 269 19671 248 5691 557846 506 3 



Prize 

DON'T be stingy, we said to Microvision 
Software, and so they gave us Miser's 
Dream. Is there a hint in there 
somewhere? Whether or no, there are 20 
copies of this program for the twenty best 
entries to this month's competition. 

Rules 

Pull out your digits and solve the puzzle. 
Then (and not before) send us your solu- 
tion, with any notes you want to include, 
with a printout of your program {no tapes, 
please) and your name and address, in 
an envelope marked SEPTEMBER 
COMPETITION. 

To make everything fairer (no, you can't 
leave the solution out), please complete 
the tiebreaker "As soon as I've made my 
first million ..." and sent it to us with your 
solution. 

June winners 

Lots of entries. We didn't reject people 
who used the leading zero as long as 
they had the other answers right, Gordon 
may have something to say about that 
eventually — some of the entrants cer- 
tainly did. The winners are: 

John Mac hi n of Troon, Keith David of 
Crawley, Richard Long of Camber ley, 
Jake Anderson of Edinburgh, Denis 
O'Mulloy of Comberton, Phil Callaghan 
of Stafford, R. Raine of Sapcote, Paul 
Weedon of Wotton-under-Edge, Dave 
Lardner of Rutherglen, Fred Taylor of 
Middlesbrough, Austan Henderson of 
Bromsgrove, Graham Barber of Sutton 
Coidfield, S P Greenard of Ingatestone, 
Terry Potter of Chisel don. Phil Davies of 
Longhoughton, Andrew Powell of 
Cambridge 1 John Smallwood of Preston 
Alan Thomas of Staple hurst, Olive 6 
Scott of Ash stead and D.J, Gray of 
Middlesbrough. 

And the mystery prize, kindly donated 
at short notice by small but devoted soft- 
ware house Broom soft, is a set of free 
vouchers and a set of discount vouchers. 
Thank you, Andrew. The free vouchers 
will go to the worthiest programs, and the 
rest to the runners u p. We aren't going to 
an no u nee who is w ho he re — a 1 1 the win- 
ners sent in a high standard of entry. 

And some very silly (and even poetic 
tiebreakers) which gave us lots of laughs. 
Favourite from CI ive G.Scott: 'Them wuz 
the days. Why, when I was seventeen, 
computer programs had to be saved on 
wax cylinders, 11 But there were lots of 
other good ones. 

Solution 

This month's solution appears on page 

27. 
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The Answer 



ANSWER: There are two numbers which 
will produce the longest sequence possi- 
ble (of eight steps). These are 909 or 999. 



9095 (= 
0952 (= 

9520 (= 
5202 ( = 
2023 (= 
0238 ( = 
2380 (« 
3808 (= 
808? 



535 

56 

560 

306 

119 

14 * 

140 

224 



* 17) 

17) 
' 17) 

* 17) 

' 17) 
17) 

* 17) 
*17) 



9996 [m 
9962 ( = 
9622 ( = 

t= 

(= 
2278 (= 

2788 (= 
(= 



588 

586 

566 

366 

131 

134 



17) 
17) 
17) 
17) 
17) 
17} 
17) 
17) 



Solution: The program begins with a 
starting values in the range of 100 to 999. 
These are held in the FOR/EXIT loopat line 
110, For each test, this value is transferred 
to variable X, and it is on this variable that 
the operations are performed. Loop 'D 1 at 
fine 140 appends each digit in turn, and the 
result (in variable 'Z') is tested for divisi- 
bility by 17 If an exact multiple is found, the 
value currently in D' is transferred to 
variable 'Q'. This variable (Q) is set initially 



to the value -1 (line 130) and if it remains at 
-1 when tested at tine 180, then no mult pie 
has been found for the current sequence 
under test. However, if a multiple is found 
the new number is generated at line 190, 
and the right-hand three digits are ex- 
tracted at line 200 by means of a string 
variable. This is then converted back to 
nu meric variable X, and the whole process 
is re p e ated f r om I i n e 1 30. A 'cou nt ' i s ke pt of 
the number of steps possible for each of 
the starting values, and this number is 
checked against the current maximum at 
line 250. 

If the program is run, it computes this 
maximum step as being 8. It is then 
necessary to re-run the program a second 
time, having amended line 250 to read: 

250 IF T=8 THEN PRINTS 

Line 250 should also be deleted. This se- 
cond program will then print those starting 
values for which a step value of 8 has been 
achieved. 



Communication 



Problem: Where can f obtain a program in 
Basic to rotate images in X-Y-Z planes, the 
points being obtained from an array in Pts, 
X,Y and Z in high resolution? Help. 
Name: Dave Bonnett 
Address: Raiffeisenstr. SA, D4450 
Lingen/Giene, Germany. 

Problem: I need to connect my TRS-80 

DMP 120 Printer to my Dragon. Is there a 

suitable interface? 

Name: Chris Vollbracht 

Address: 110 Alpine Rise, Sty vec hale 

Grange Estate, Coven try.W. Midlands CV3 

6NR. 

Problem: Does anyone have the cassette 

version of Empire by Shards Software which 

they are willing to sell? 

Name: Karen Carpenter 

Address: 41, Glenleary Road, Coleraine, 

Co. Londonderry N. Ireland. 



manual which accompanies Morrison's 
Pascal Compiler. Also 747 Flight Simulator 
manual. Original publishers have none left, 
and mine have been nicked. I have photoco- 
pying facility and will pay all postage and 
packing. 

Exceed i n g d esperate for a d ead or d y i n g 
DragonDOS cartridge. 
Name: Paul J, Read 



This is Gordon Lee's own 
solution to the June competition 

see page 26 for results 



1 

110 
120 
130 
140 
150 
160 

170 
180 



200 

210 
2 20 
230 



24 
250 



2 



MAX = 0 

FOR S=100 TO 999 
X=S:T=0 

Q=-l 

FOR D=0 TO 9 
Z=X*1Q+P 

IF 2/17=INT(Z/17) 
THEN Q=D:T=T+1 
NEXT D 

IF Q=-l THEN 2 50 
X=X*1Q+Q 
X$=STR$(X) : 
X$=RIGHT$(X$, 3) 

X=VAL(X$) :GOTO 13 
NEXT S 

PRINT 1 ' maximum; 

STEP=";MAX 
END 

IF T>MAX 
MAX = T 
GOTO 2 20 



Address: 7, Fairview Avenue, Whetstone, 
Leicester LE8 3JQ, 

Problem: Does anyone have a Dragon's 
Claw i n I e rf ace (and possi bly a S n ap cam e ra 
and software) that they are willi ng to sell or 
lend? 

Name: Andrew Bell 

Address: 7 St. Pauls Road, Cambridge. 



Problem: Desperate. Frantic. Pulling out 
hair Near to nervous breakdown type plea. 
To borrow, buy o r e ve n a tee nsy wee nsy pee k 
at a copy of The Advanced Programming 
Guide for DettaDOS book. Very ditto the 



Adventure Contact 



To help puzzled adventurers further, we 
are instituting an Adventure Helpline — 
simpl y f i II i n t he cou pon be I ow, stat i ng th e 
name of the adventure, your problem and 
your name and address, and send it to 
Dragon User Adventure Helpine, 



12/13 Little Newport Street, London 
WC2H 7PR As soon as enough entries 
ha ve a r ri ved , we w i 1 1 sta rt p r i nt i n g th em i n 
the magazine. 

Don't worry — you 'll still 
ture Trial to write to as well! 



Adventure 
Probl< 



■ ■ ■ . 
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Name . . 
Address 
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Adventure Contact 



Adventure: The Ket Trilogy 
Problem: How do you get past 
the zombie? 



also how to get th e keg f ro m t h e 



Address: 26, Millhouse Drive, 
Wymans Brook, Cheltenham, 
Glos GL50 4RG. 

Adventure: Ring of Darkness 
Problem: How to board the carl, 



Name: Ai den Devine 
Address: 60, Nether Street, Fin 
chley, London IM12 7NG. 



Adventure: Syzygy 
Problem: I have found the 
transporter and co-ordinates. 



How to use the transporter? 
Name: Kieron Williams 
Address: 33 Mayflower Drive, 
Margord, Nr. Wrexham, Clwyd 
LL12 8LD. 

Adventure: a) Shenanigans b) 
Crickfewood incident 
Problem : a) How do you safely 



cross the rainbow? b) Which 
command allows you lo board 



Name: Chris Vollbracht 

Address: 110 Alpine Rise, 
Sty vec hale Grange Estate, 
Coventry, W, Midlands CV3 
6NR. 
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TURBOCHARGE YOUR DRAGON: 



With our great value hardware and software; 



BASIC 42 

Extended BASIC for the Dragon &4 



£14.95 

Run your Dragon In 64K mode, while retain i ng BASIC 
and DOS. Print on hi res screen, using standard 
PRINT commands, and a screen layout of 24 rows of 
42 columns. Ol her features include: 

Alternative, redelinabie character sets, control key for 
special characters, repeating keys, and commands in 
lower case windows. CATCH command for automatic 
return to window, inverted video (green on blacWblack 
on g reen), 1 rye underlining an d erctra PRI NTcorn mands 
■ftafurM 



WHAT THEY SAY ABOUT 
BASIC 42: 

"probably the best step so far" 
Dragon User 



MACGOWAN SOFTWARE 

PRINTER CONTROL* FROM 

A text AND graphics processor 

DUMPER' FROM 

Relocatable screen dump program 

COLOR PRINT J 

PMode 3 screen dump program 



£5.45 



LtBRARV hsts commands and functions. AuiornaJic 
startup ol BASIC program. TEXTcommand far software 
compatibility. Still 23335 bytes free lo BASIC Palche&tor 
Dragondos 1.0. Can load m extra UTILITIES from di&k 

HELP UTILITY £5.00 

Extensions lo BASIC 42 include change cursor 
character, scroll disable, pause lusting. BREAK disabte, 
improved TRON (allows single stepping), Detailed help 
araj error messages. 

SPOOL UTPLITY £5.00 

Use computer while printing. 3.5K print buffer TYPIST 
program turns Dragon into typewriter. 

ICONS UTILITY £5.00 

Put icons m your program! Controlled by curso* or 
"mouss" ' Corn m ands lo define, clear load and saw icon 
positions and windows. 

STRUCTUR UTILITY £5.00 
Another first! Structured BASIC on in& Dragon! Allows 
nameclpnacedures, improved toop controls by WHILE ... 
WEND, and REPEAT ... UNTILelc 

DOS UTILITY £5,00 
Mgks fnends witii your DOS F Enter all the main DOS 
commands, plus LIST, EDIT etc, and select files 
cursor or "mouse " 



an invaluable utility 
Dragon Update 

HARDWARE 

FROM 



* * NEW 1 

LIQHTPENS/W 

Upgrade includes screen d u rnp 

MONITOR/ASSEMBLER* 

Printer orieniated 



■ 



CASS 
DISK 

CASS 
DISK 



£7.00 
EB.00 

£12,00 
£15.00 



Memnry Upgrades 
Superdcs Cartridg 
40 Track Drive inc. Cartridge 



Peaksoff joyslick (ideal "mouse") 



£.3 3.0 0 

£75,00 
£18000 
£10.00 
£5.50 



DISK SOFTWARE FOR DRAGON 32/64/128 
WITH DRAGONDOS/CUMANA DOS 2.0 

' * NEW * * 

£14.95 

lines 



DSKDREAM (Grosuenor} 

The standard Dragon Editor/Assembler 

D.H.S (GTasvenorj 

Machine code database program 

SOURCEMAKER (Pamcomms) 

Disassembler for use With DSKDREAM 

DISK-KIT (Pamcomms) 

Sort out your disk problems 



£19.95 



£995 



MONEYBOX (Harris) 

Home and small business accounls 

MAILBOX (Harris) 

Selective mailing list program 

SHAR E BOX (Harris) 

Manage your stocks and shares' 

SALES BOX (Harris) 

Balance B^F Sales Ledger' 

BILLSBOX (Harris) 

Balance B/F Purchase Ledger 

CASH BOX (Harris) 

OouOle-eniry Nominal Ledger 



£9 95 



STOCKOOX (Ha 

Full-featured Stock Co nlrol 

ORDERBOX (Harris) 

Invoicing linked lo Sales or StocK 



£14.99 



£16.99 



£16.99 



£19.99 



C 19.99 



£19,99 



£19.99 



£16.99 



HARRIS MICRO SOFTWARE 

49 Alexandra Road, Hounslow, Middlesex, TW3 4HP Tel: (01) 570 8335 
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S.R ELECTRONICS 

Complete Dragon Spares and 
Repairs Service 



Citizen 120D 

Dot Matrix 

Printer (NLQ) 

Ferguson Green 
Screen Monitor....... 



£199.00 



■ i ■ 



£64.00 



Philips Green 
Screen Monitor 

(7SQ2) 

l I W V t_ f ■ 4-l-fc4i4ifc*ar-iB ■■■■■■■■■■ 

Philips Amber 
Monitor,,.. 



■ • 



£85.00 



£95.00 



Parallel Printer 
Cable .„ 



£12.90 




S.R ELECTRONICS 

Limby Road, Hucknall, Notts 
(Nottingham 640377) 
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DON'T FORGET ! ! 

THE N.W. ENGLAND DRAGON 
SHOW/CONVENTION 



ROCHDALE 
ON:— SATURDAY 12TH SEPT 87 
TIME:— 10.00 AM — 4.00 PM 
VENUE: — BISHOP HEN SHAW UPPER SCHOOL, 

SHAW RD., 

(OFF MAIN ROCHDALE - OLDHAM 
ROAD), THORN HAM, ROCHDALE. 

(ADULTS £1.50, CHILD £1.00) 
TH ERE WILL BE SOMET HING FOR EVERYONE. 

MAJOR SOFTWARE/HARDWARE FIRMS, USER 
GROUPS, DEMOS, TALKS, FORUM, COMPUTER 
CLINIC, PRIZE DRAWS, SNACKS. LICENSED BAR 
APPLIED FOR. 

EASY ACCESS FROM MB2 (JCT. 20) 

ENQUIRIES TO:— 
PULSER SOFTWARE 

(0706-849189) 
(BRIAN O'CONNOR) 
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